Delphi-PRAXiS - Delphi Sender überprüfen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi Sender überprüfen (https://www.delphipraxis.net/23565-sender-ueberpruefen.html)

orakel

5. Jun 2004 10:30

Sender überprüfen

Hi,
gibt es sowas wie :

Code:

If Sender=TMemo then...

Danke, Andi

Sharky

5. Jun 2004 10:35

Re: Sender überprüfen

Hai orakel,

ja gibt es fast. Nur anstelle von = muss es IS heissen ;-)

Delphi-Quellcode:

			procedure TForm1.Memo1DblClick(Sender: TObject);

begin

  If (Sender IS TMemo) then ShowMessage ('Memo');

  If (Sender IS TLabel) then ShowMessage ('Label');

  If (Sender IS TEdit) then ShowMessage ('Edit');

end;

orakel

5. Jun 2004 10:58

Re: Sender überprüfen

Danke :dancer:

Alle Zeitangaben in WEZ +1. Es ist jetzt 04:59 Uhr.