Zitat von
Guido Eisenbeis:
Mit Arrays habe ich schon oft gearbeitet. Diesmal werde ich mir mal TList vornehmen.
Nimm lieber eine TObjectList, die gibt gleich alle Objecte frei, wenn sie freigegeben wird (zumindest standardmäßig...
Zitat von
Guido Eisenbeis:
Aber du weißt ja wie das ist: hat man mal Blut geleckt, will man mehr! Hast du eine Idee, wie ich das OnClick allgemeiner gestalten kann? Also so, dass es für Buttons, Labels, Panels usw. gleichermaßen funktioniert?
Delphi-Quellcode:
procedure InitClickEventRetouring(Ctrl: TObject);
begin
{...}
If Assigned( Ctrl ) And ( Ctrl Is TButton ) Then TButton(Ctrl).OnClick := MyEventReceiver.ClickIntern;
end;
ich schrieb weiter oben schonmal woher das Onlick kommt! Nimm statt TObject ein
TControl...
Desweiteren hättest du die möglichkeit explezit nach den Klassen zu schauen ungefär so:
Delphi-Quellcode:
Procedure InitClickEventRetouring( Ctrl: TControl );
Begin
If ( Ctrl Is TButton ) Then Begin
// Mach was mit dem TButton
End Else If ( Ctrl Is TLabel ) Then Begin
// Mach was mit dem TLabel
End Else If ( Ctrl Is TPanel ) Then Begin
// Mach was mit dem TPanel
End Else Begin
// tja is was anderes, mach halt was anderes...
End;
End;
Bye Christian