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;
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?