Der arme Doc weiß jetzt eventuell nicht mehr was hier abgeht.
Und ich bleibe dann wohl doch beim alten (kommt ja bei mir selten genug vor),
da weiß/sehe ich wenigstens noch besser was dort passieren soll.
Zitat von
(me):
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