Como Uso el ActionList?

[day_eli]

Buen día amigos, quisiera que me echaran una manito para
aprender a utilizar el actionlist.
Por donde empezar? como empezar?

Gracias de Antemano!!!

[karlaoax]

Primero yo lo utlizo para ahorrarme codigo en tareas repetitivas, normalmente Limpiando texto de Edits

Lo unico q haces es 2 click sobre tu actionlist y te aparece una nueva pantallita, aqui asignas un nombre cualquiera a tu accion, y le das 2 click obre la accion creada, y listo.

procedure TForm1.Action1Execute(Sender: TObject);
begin
// Codigo que generarias para X accion
end;
end.

Y cuando lo ejecutes con cualquier componente por ejemplo, un Boton:
1.- En su propiedad action, hace que apunte hacia la accion que creaste, y listo.

Las veces que necesites esa misma accion, siempre apuntas a ella, y asi ahorras codigo

Si alguien tiene otro uso, escribanlo para tener mas conocimiento acerca de el.

Karla

[aprendiz2]

Otro uso que se le puede dar, ademas de escribir un proceso en un solo lugar, es el siguiente:

Habilitar / deshabilitar varios botones, menus, popups relacionados con lo mismo, de una forma muy facil, y que se habiliten / deshabiliten automaticamente de acuerdo a alguna situacion cambiante en el programa
( un ejemplo aqui abajo lo aclarara todo rapidamente ).

Hacer invisible/visibles varios objetos y botones que puedan relacionarse con un Action.

Poner Checked / Unchecked varios objetos que tengan esa propiedad ( popups, checkboxes, inclusive unos botones lo interpretan como Down ).

Un ejemplo pondra las cosas mas claras:

1 - Asumir que tienes un Form con una tabla y un dbGrid.
2 - Colocas un boton que dice "Nuevo", para que el usuario le haga click y el el programa se encarga de hacer un append a la tabla.
3 - Tambien colocas una opcion en el Menu, que dice "Nuevo".
4 - Por otro lado, tienes un Popup que se abre cuando el usuario da
click derecho en el grid, y ahi una de las opciones es "Nuevo"

Ya tienes 3 lugares donde el usuario puede generar "Nuevo".
( Boton, Menu y Popup ).

Ahora, deseas que las opciones de "Nuevo" solo esten habilitadas cuando el
dbGrid esta en modo "Browse". Si acaso el Grid ya esta Insertando o editando, las opciones de Nuevo deben aparecer todas en "disabled".

Como mantener las 3 opciones que tienes regadas en sincronia con el estado del grid ?


El TActionList puede ayudar en esto !

Primero, haces lo que te recomiendan en el comentario anterior en este hilo.
1 - Creas una nueva accion.
2 - Ponle algun nombre a esa accion. ( a la accion, no al objeto TActionList ). Por ejemplo,el nombre en este caso podria ser AccionNuevo.
3 - Busca la propiedad Caption y ponle Nuevo.
4 - En los eventos de esta accion, dale doble click al Execute y escribes lo necesario ahi. En este caso, un Append es suficiente.

Código Delphi [-]
procedure TForm1.AccionNuevoExecute(Sender: TObject);
begin
   Tabla1.Append;
end;

5 - Para lograr lo del enable / disable, en los eventos de esa accion,
dale doble click en el evento OnUpdate

Código Delphi [-]
procedure TForm1.AccionNuevoOnUpdate(Sender: TObject);
begin
   with Sender as TAction do
       Enabled := Tabla1.State = dsBrowse;
end;

6 - Ahora, busca el Boton, y en la propiedad Action del boton, apunta a AccionNuevo.

7 - Repite el paso 6 con la opcion del menu y por ultimo con la opcion del
Popup que se refieren a "Nuevo" ( los 3 tienen que apuntar a AccionNuevo en sus propiedades Action ).

8 - Corre el programa, y pruebalo. Los 3 objetos deben obedecer en cuanto a hacer un append a la tabla. ( y ninguno de ellos tiene codigo en sus propios eventos !. Todo quedo en el Action ! ).

9 - Los 3 objetos deben aparecer "disabled" cuando se agrega o se edita la tabla a traves del grid.

10 - Ademas de "enabled", se puede controlar otras propiedades como "visible", "checked" dentro del Action, asi como se mostro arriba.

Hay otros usos que se les puede dar, pero pienso que estos son los principales.

Saludos, ojala te sirva mucho, buenas noches !

[day_eli]

Muchas gracias...en realidad todo me sirvió de gran ayuda!

[aprendiz2]

Contento de haberle podido ayudar en algo !