Sender überprüfen

[orakel]

Hi,
gibt es sowas wie :

Code:

If Sender=TMemo then...

Danke, Andi

[Sharky]

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]

Danke