Eigenes Event anlegen + Event Handler

[arc]

Ich habe bereits nach Event Handler und method pointer im Forum gesucht, aber nur die Variante gefunden, daß jemand einen eigenen Eventhandler zuweisen möchte. Das habe ich bereits gemacht und das klappt auch.

Nun habe ich mir jedoch eine eigene Button Klasse geschrieben und möchte dieser Klasse ein OnClick Event spendieren, daß ich später mit einem Eventhandler in der Form MyButton.OnClick:=bla; belegen kann.

Nun die Frage, wie legt man OnClick an? Ich habe es als OnClick:TProcedure; angelegt, da kommt natürlich der Fehler "Incompatible Types: regular procedure and method pointer". Als OnClick:TMethod; ging es auch nicht. Wie legt man soetwas an?

Hier etwas Code dazu:

Delphi-Quellcode:

     TToggleButton = class(TConnector)
                      protected
                        selected:boolean;

                      public
                        OnClick:TProcedure;
                        property isSelected:boolean read selected write selected;

                        constructor Create(newtarget:TModule); virtual;
                        procedure OnClickActive;
                        procedure OnClickBypass;
                    end;

OnClick soll je nach Anwendungsfall durch OnClickActive oder OnClickBypass ersetzt werden. Das könnte ich natürlich auch anders lösen, aber ich möchte gern etwas neues lernen.

Hat jemand eine Idee? Danke!

[Uwe Raabe]

TNotifyEvent

[arc]

Besten Dank! So funktioniert es:

Delphi-Quellcode:

     TToggleButton = class(TConnector)
                      protected
                        selected:boolean;

                      public
                        OnClick:TNotifyEvent;
                        property isSelected:boolean read selected write selected;

                        constructor Create(newtarget:TModule); virtual;
                        procedure OnClickActive(Sender:TObject);
                        procedure OnClickBypass(Sender:TObject);
                    end;

[Furtbichler]

Ich bezweifle das. Ein Ereignis ist eine vom Anwender der Klasseninstanz zu belegende Methode.
So ist es richtig

Delphi-Quellcode:

Type
  TMyClass = Class
    FOnDoSomething : TNotifyEvent;
  public
    property OnDoSomething : TNotifyEvent Read FOnDoSomething write FOnDoSomething;
  End;

[arc]

Ah, wieder was gelernt. Danke!

[Aphton]

da fehlt das Schlüsselwort "property" davor...

[Furtbichler]

Zitat von Aphton:

da fehlt das Schlüsselwort "property" davor...

Stimmt garnicht.

Nee, danke: Geändert.