Gemeinsame OnClick - Behandlung

[Nalincah]

Zitat von himitsu:

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

Vorher hat 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

Vielleicht hab ich was nicht mitgekriegt, beim lesen des Threads, aber wie geht sowas?

Wie kann man auf was klicken was enabled := false hat?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender:TObject);
begin
  If Sender.ClassType = TButton Then Begin
    TButton(Sender).Enabled := True;
end;

Wenn da Enabled auf True gesetzt wird, geh ich davon aus das es vorher auf false stand. Wie kann man also darauf klicken?