Gemeinsame OnClick - Behandlung

[himitsu]

Ausverseh'n 'Edit' an statt 'Zitat'
(weiß aber nicht mehr genau was hier stand, dashalb nicht wundern)

Vorher halt den Typ abfragen:

Delphi-Quellcode:

If Sender.ClassType = TButton Then Begin
  TButton(Sender).Enabled := True;  
End Else If Sender.ClassType = TBitBtn Then Begin
  TBitBtn(Sender).Enabled := True;  
End Else If Sender.ClassType = TEdit Then Begin
  TEdit(Sender).Enabled := True;  
End Else If Sender.ClassType = TMemo Then Begin
  TMemo(Sender).Enabled := True;  
End;

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif