[delphi] risalire a oggetto chiamante

[123delphi321]

ciao a tutti,

sapete se esiste una funzione che restituisce il nome della funzione chiamante...


mi spiego:

ho una form e in essa 3 bottoni Btn1,Btn2 e Btn3.

sull'evento click di questi bottoni viene eseguita la stessa procedura...

dall'interno di questa procedura vorrei riconoscere quale Button e' stato premuto.


grazie

[alka]

Il parametro Sender rappresenta l'oggetto che ha generato l'evento. Per accedere alle proprietà, devi eseguire il "casting" al tipo di oggetto, componente o controllo corrispondente.

Ad esempio, per modificare la Caption del pulsante cliccato puoi scrivere qualcosa di simile a questo:

procedure TDemoForm.AnyButtonClick(Sender: TObject);
begin
  (Sender as TButton).Caption := 'Ouch!';
end;