¿Cómo puedo ver quién desencadenó una acción en Delphi?

Question

Cuando una acción incluso dispara, el "emisor" es siempre la acción misma. Por lo general, eso es lo más útil, pero ¿es posible de algún modo averiguar quién desencadenó el evento onexecute de la acción?

Ejemplo

Digamos que usted tiene un formulario con los siguientes:

• 2 botones, llamados Button1 y Button2
• 1 taction llama actDoStuff

La misma acción está asignado a ambos botones. ¿Es posible mostrar en qué botón hice clic?

Example.dfm

object Form1: TForm1 
    object Button1: TButton 
    Action = actDoStuff 
    end 
    object Button2: TButton 
    Action = actDoStuff 
    Left = 100 
    end 
    object actDoStuff: TAction 
    Caption = 'Do Stuff' 
    OnExecute = actDoStuffExecute 
    end 
end 

Example.pas

unit Example; 
interface 
uses Windows, Classes, Forms, Dialogs, Controls, ActnList, StdCtrls; 

type 
    TForm1 = class(TForm) 
    Button1: TButton; 
    Button2: TButton; 
    actDoStuff: TAction; 
    procedure actDoStuffExecute(Sender: TObject); 
    end; 

var 
    Form1: TForm1; 

implementation  
{$R *.dfm} 

procedure TForm1.actDoStuffExecute(Sender: TObject); 
begin 
    ShowMessage('Button X was clicked'); 
end; 

end. 

La única solución que veo en este momento es no utilizar la propiedad de acción de los botones, pero tener un manejador de sucesos para cada botón, y llamar a actDoStuffExecute() desde allí, pero ese tipo de desafía el propósito de usar acciones en primer lugar.

No quiero tener una acción dedicada para cada control por separado tampoco. El ejemplo anterior es una versión simplificada del problema que estoy enfrentando. Tengo un menú con un número variable de elementos de menú (nombres de archivo), y cada ítem del menú básicamente tiene que hacer lo mismo, excepto para cargar otro archivo. Tener acciones para cada elemento del menú sería un poco tonto.

Answer 1

Trate de usar el ActionComponent propiedad:

ShowMessage((Sender as TAction).ActionComponent.Name); 

El uso de este recibo "Button1" y "Button2" al hacer clic en el botón primero y segundo, respectivamente, .

Answer 2

Ok, mientras tanto creo que he encontrado una solución viable ..

puedo tener todos los controles utilizan la misma acción; Solo tengo que anular su controlador de eventos OnClick, y solo necesito un solo controlador para todos ellos.

Todavía estoy interesado en saber si es posible averiguar el que el control desencadena la acción, pero para mi aplicación actual que estoy usando una solución que es similar al código de abajo:

unit Example; 

interface 

uses 
    Windows, Classes, Forms, Dialogs, Controls, ActnList, StdCtrls; 

type 
    TForm1 = class(TForm) 
    Button1: TButton; 
    Button2: TButton; 
    actDoStuff: TAction; 
    procedure actDoStuffExecute(Sender: TObject); 
    procedure ButtonClick(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.actDoStuffExecute(Sender: TObject); 
begin 
    ShowMessage('Button '+TControl(Sender).Name +' was clicked') 
end; 

procedure TForm1.ButtonClick(Sender: TObject); 
begin 
    actDoStuffExecute(Sender) 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    Button1.OnClick := ButtonClick; 
    Button2.OnClick := ButtonClick 
end; 

end. 

Answer 3

Saber qué El botón dispara la acción, va contra el uso de acciones: una acción puede ser activada por un clic de botón, o un clic de menú, o cualquier cantidad de otras actividades de usuario. Existen acciones para unificar la gestión de estado de habilitar/deshabilitar y hacer clic en el manejo entre botones y menús.

Si desea saber qué botón activó la acción porque desea realizar una operación ligeramente diferente, o "sazonar" la operación de forma diferente, entonces quizás TAction no es la solución adecuada para lo que desea hacer.

Answer 4

establecer la etiqueta de los botones como 1, 2, etc ... y luego:

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    Button1.OnClick := ButtonClick; 
    Button2.OnClick := ButtonClick; 
end; 

procedure TForm1.ButtonClick(Sender: TObject); 
begin 
    if Sender is TButton then 
    begin 
    Caption := 'Button: ' + IntToStr(TButton(Sender).Tag); 
    end; 
end; 

Answer 5

En lugar de acciones, sólo tiene que utilizar un evento de clic. Configure todos los botones para usar el mismo controlador de eventos. Idealmente, NO recibe el nombre del primer botón (puede cambiarle el nombre).

Aquí está el código:

Procedure TMyForm.DestinationButtonClickHandlerThing(Sender: TObject); 
begin 
    if Sender = Btn_ViewIt then 
    begin 
    // View It 
    end 
    else if Sender = Btn_FaxIt then 
    begin 
    // Fax It 
    end 
    else if Sender = Btn_ScrapIt then 
    begin 
    // Scrap It 
    end 
    else 
    .... // error 
    ... 
end; 

Answer 6

Hay situaciones donde la misma acción debería aplicarse a controles similares. El problema con

ShowMessage((Sender as TAction).ActionComponent.Name); 

es que cuando la acción es invocada por un menú emergente por ejemplo, se obtiene el nombre del menú emergente. Puede usar:

procedure TMyForm.actMyActionExecute(Sender: TObject); 
var 
    LMyControl: TMyControl; 
begin 
    if Screen.ActiveControl.Name = 'MyControl1' then 
    LMyControl = Sender as TMyControl 
    else 
    Exit; 
    // Use the local variable for whatever needed 
end;