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 ).
Cita:
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 !