Events mit eigenen Variablen

[Helmi]

Hallo,

wie kann man ein Event mit eigenen Variablen in einer Komponente erzeugen?

Beispiel SpinEdit:

bei einem klick auf das Event "OnChange" kommt das raus:

Code:

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin

end;

bei einem Klick auf das Event "StartDrag" kommt das:

Code:

procedure TForm1.SpinEdit1StartDrag(Sender: TObject;
  var DragObject: TDragObject);
begin

end;

Nun würds mich interessieren, wie man in das Event eigene Variablen, etc. einbauen kann? (also wie in dem SpinEdit-Beispiel "var DragObject: TDragObject")

mfg
Helmi

[Steve]

Zitat von Delphi OH:

Ereignisspezifische Behandlungsroutinen

In einigen Fällen reicht es nicht aus zu wissen, welches Ereignis eingetreten ist und welche Komponente davon betroffen war. Wenn es sich z.B. um ein Tastendruckereignis handelt, ist es wahrscheinlich, dass die Behandlungsroutine wissen will, welche Taste der Benutzer gedrückt hat. In diesen Fällen benötigen Sie Behandlungsroutinentypen, die Parameter für weitere Informationen enthalten.

Das heißt, wenn weitere Parameter als nur "Sender" (in TNotifyEvent) übergeben werden sollen, muss der Behandlungsroutinentyp dementsprechend deklariert werden, z.B.

Delphi-Quellcode:

TYPE
  TMYSpecialEvent = PROCEDURE(Sender: TObject; aAnzahl: Byte; X,Y : Integer) OF OBJECT;

..dann noch OnApocalypse : TMySpecialEvent und schon haste die weiteren Parameter

Da Du bei vordefinierten Events an der Typdefinition rumschrauben müsstest, würd ich da die Finger von lassen
Gruß
Stephan

[Helmi]

Vielen Dank steve!!

hat wunderbar funktioniert!