Lazarus + OnMouseUp

[skyware]

Hallo zusammen,

hab mir mal Lazarus runtergeladen und bin mal ein bisschen am pröbeln.
Nun wollte ich dynamisch einem TPanel das Ereigniss OnMouseUp zuweisen,
allerdings bringt er jetzt immer den Compiler Fehler:

wrong numbers of parameters specified

aber die Parameter sind alle korrekt?!? Habe als Vergleich sogar
rasch ne Form angelegt und dort das Ereigniss OnMouse up statisch zugewiesen...
und es sind die genau gleichen Parameter.

Delphi-Quellcode:

procedure   HandleOnMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Was könnte ich noch falsch gemacht haben? :wall:

[Ferber]

Hi, weiss zwar nicht was Lazarus ist, es scheint jedoch nur um die Zuweisung des Ereignisses OnMousUp während der Laufzeit zu gehen.
Falls das der Fall ist lass die IDE für dich arbeiten und erzeuge einfach, wie du ja schon getan hast, die Erreigbehandlung.
Kopiere diese und benenne sie um, die lassen sich dann problemlos zuweisen.
OnMouseUp:=FormMouseUp1;
OnMouseUp:=FormMouseUp2;
Hängt irgendwie mit der Deklaration TMouseEvent=Procedure .... of Object zusammen.
Hoffe das ist's was du gesucht hast.

mfg Otto

[skyware]

hallo,

danke für die Antwort.
Lazarus ist eine Open Source Entwicklungsumgebung bei der man
auch mit der Delphi Syntax entwickeln kann.

Genau das was du vorgeschlagen hast habe ich bereits versucht,
aber es funktioniert auch nicht :wall:
Bei anderen dynamisch zugewiesen Events habe ich das selbe
Problem... z.B. bei einer Form beim Event "OnDeactivate".

Kann mir hier wirklich niemand helfen?

[sniper_w]

Na ja, Lazarus ist "etwas" anders als Delphi, und so geht´s:

Delphi-Quellcode:

//...
    procedure MyDown(Sender: TOBject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
//...

 OnMouseDown := @MyDown;

[skyware]

Vielen Dank für die Antwort, jetzt funktionierts :thumb:
Genau über dieses "etwas anders" bin ich ja gestolpert :???: