Sender überprüfen

[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;