Einzelnen Beitrag anzeigen

Benutzerbild von Kedariodakon
Kedariodakon

Registriert seit: 10. Sep 2004
Ort: Mönchengladbach
833 Beiträge
 
Delphi 7 Enterprise
 
#13

Re: "inherited" für umgeleitetes Event

  Alt 18. Mär 2007, 02:44
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
Christian
  Mit Zitat antworten Zitat