Zur Laufzeit erzeugten Komponenten Methoden zuweisen?

[Bitscorpion]

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var newshape : TShape;
begin
newshape := TShape.Create(form1);
newshape.Parent:=form1;
newshape.width:=100;
newshape.left:=100;
newshape.top:=100;
newshape.height:=100;
newshape.Visible:=true;
newshape.OnMouseDown:=ObjektMouseDown;
newshape.OnMouseUp:=ObjektMouseUp;
newshape.OnMouseMove:=ObjektMouseMove;
end;

aus irgendeinem Grund funktioniert das nicht. Es kommt der Fehler:
Wrong number of parameters specified for call to "ObjektMouseDown"
Was nicht sein kann, weil die Methode einwandfrei ist.
Wenn ich ein Shape in der Entwicklung erzeuge, kann ich unter Ereignisse ihm auch diese Methoden zuweisen und das Programm funktioniert einwandfrei. Aber wieso nicht zur Laufzeit?

[theo]

http://www.lazarusforum.de/viewtopic.php?p=17036#17036" onclick="window.open(this.href);return false;

[alexander]

Code: Alles auswählen

newshape.OnMouseDown:=@ObjektMouseDown;

[Bitscorpion]

Ah, danke

[alexander]

Immer gerne wieder.

Gruß Alexander