Come posso vedere chi ha attivato un'azione in Delphi?

Question

Quando un'azione viene attivata, il "mittente" è sempre l'azione stessa. Di solito è il più utile, ma è in qualche modo possibile scoprire chi ha attivato l'evento onexecute dell'azione?

Esempio

Diciamo che dispone di un modulo con il seguente:

• 2 pulsanti, chiamati Button1 e Button2
• 1 dell'aderenza in marcia chiamato actDoStuff

La stessa azione è assegnato a entrambi i pulsanti. È possibile mostrare quale pulsante ho cliccato?

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. 

L'unica soluzione che vedo in questo momento è di non usare la proprietà di azione di pulsanti, ma avente un eventhandler per ogni pulsante, e chiamando actDoStuffExecute() da lì, ma questo tipo di sfida allo scopo di utilizzare le azioni in primo luogo.

Non voglio avere un'azione dedicata per ciascun controllo separato. L'esempio sopra è una versione semplificata del problema che sto affrontando. Ho un menu con un numero variabile di voci di menu (nomi di file), e ogni voce di menu deve fondamentalmente fare la stessa cosa, ad eccezione del caricamento di un altro file. Avere azioni per ciascuna voce di menu sarebbe un po 'sciocco.

Answer 1

Provare a utilizzare il ActionComponent proprietà:

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

Usando questo ottengo "Button1" e "Button2" quando si fa clic rispettivamente il primo e secondo pulsante .

Answer 2

Ok, nel frattempo Credo di avere trovato una soluzione praticabile ..

posso avere tutti i comandi utilizzano la stessa azione; Ho solo bisogno di sovrascrivere il loro gestore di eventi OnClick e ho solo bisogno di un singolo gestore per tutti loro.

Sono ancora interessato a sapere se è possibile scoprire quale controllo ha innescato l'azione, ma per la mia applicazione corrente sto usando una soluzione che sia simile al codice qui sotto:

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

Sapere cosa il pulsante ha attivato il tipo di azione che va contro il punto di utilizzo delle azioni: un'azione può essere attivata da un clic del pulsante o da un clic del menu o da un qualsiasi numero di altre attività dell'utente. Esistono azioni per unificare la gestione dello stato di abilitazione/disabilitazione e la gestione dei clic tra pulsanti e menu.

Se si desidera sapere quale pulsante ha attivato l'azione perché si desidera eseguire un'operazione leggermente diversa, o "assaporare" l'operazione in modo diverso, allora TAction non è la soluzione giusta per ciò che si vuole fare.

Answer 4

impostare il tag dei pulsanti come 1, 2, ... ecc e poi:

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

Invece di azioni, basta usare un evento click. Impostare tutti i pulsanti per utilizzare lo stesso gestore di eventi. Idealmente, NON prende il nome dal primo pulsante (puoi rinominarlo).

Ecco il codice:

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

Ci sono situazioni in cui la stessa azione dovrebbe applicarsi a controlli simili. Il problema con

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

è che quando l'azione viene richiamata da un menu popup, ottieni il nome del menu popup. È possibile utilizzare: