"inherited" für umgeleitetes Event

[Guido Eisenbeis]

Zitat von Kedariodakon:

Nimm lieber eine TObjectList, die gibt gleich alle Objecte frei, wenn sie freigegeben wird (zumindest standardmäßig...

Habe ich auch so gesehen. Hier der neue Code (Unit1 hat sich nicht verändert):

Delphi-Quellcode:

unit Unit2;

interface

procedure InitClickEventRetouring(Ctrl: TObject);

implementation

uses
  Dialogs, Classes, StdCtrls, Contnrs;

type
  TClickEvnt = procedure (Sender: TObject) of object;
  TMyEventReceiver = class
    private
      FClickOrig: TClickEvnt;
      procedure ClickIntern(Sender: TObject);
    public
      property OnClickOrig: TClickEvnt read FClickOrig write FClickOrig;
  end;

var
  EvRecvList: TObjectList;

procedure TMyEventReceiver.ClickIntern(Sender: TObject);
begin
  ShowMessage('Umgeleitetes Event von:   ' + TButton(Sender).Name);
  If (Assigned(OnClickOrig)) Then
    OnClickOrig(Sender);
end;

procedure InitClickEventRetouring(Ctrl: TObject);
var
  MyEventReceiver: TMyEventReceiver;
begin
  try
    MyEventReceiver := TMyEventReceiver.Create;
    MyEventReceiver.OnClickOrig := TButton(Ctrl).OnClick;
    TButton(Ctrl).OnClick := MyEventReceiver.ClickIntern;
    EvRecvList.Add(MyEventReceiver);
  except
    ShowMessage('Error in ClickEventRetouring code');
  end;
end;

initialization
  EvRecvList := TObjectList.Create;

finalization
  EvRecvList.Free;

end.

Zitat von Kedariodakon:

Zitat von Guido Eisenbeis:

Hast du eine Idee, wie ich das OnClick allgemeiner gestalten kann? Also so, dass es für Buttons, Labels, Panels usw. gleichermaßen funktioniert?

ich schrieb weiter oben schonmal woher das Onlick kommt! Nimm statt TObject ein TControl...

Leider führt TControl sein OnClick nicht nach außen! Es ist protected.

Zitat von Kedariodakon:

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;

Das wäre auch meine "Notlösung".

Gruß,
Guido.