Zur Laufzeit erzeugten Komponenten Methoden zuweisen?

Rund um die LCL und andere Komponenten
Antworten
Bitscorpion
Beiträge: 10
Registriert: Mi 20. Feb 2008, 21:44
OS, Lazarus, FPC: Winux (L 0.9.xy FPC 2.2.z)
CPU-Target: xxBit
Kontaktdaten:

Zur Laufzeit erzeugten Komponenten Methoden zuweisen?

Beitrag von 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?

Benutzeravatar
theo
Beiträge: 10927
Registriert: Mo 11. Sep 2006, 19:01

Beitrag von theo »

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

alexander
Beiträge: 423
Registriert: Di 5. Feb 2008, 12:45
OS, Lazarus, FPC: Linux, Lazarus svn, FPC svn
CPU-Target: 64Bit
Kontaktdaten:

Beitrag von alexander »

Code: Alles auswählen

newshape.OnMouseDown:=@ObjektMouseDown;
Du magst Freiheit? Gönne es auch deinem Computer mit Linux!
www.alexanderroth.eu

Bitscorpion
Beiträge: 10
Registriert: Mi 20. Feb 2008, 21:44
OS, Lazarus, FPC: Winux (L 0.9.xy FPC 2.2.z)
CPU-Target: xxBit
Kontaktdaten:

Beitrag von Bitscorpion »

Ah, danke

alexander
Beiträge: 423
Registriert: Di 5. Feb 2008, 12:45
OS, Lazarus, FPC: Linux, Lazarus svn, FPC svn
CPU-Target: 64Bit
Kontaktdaten:

Beitrag von alexander »

;-) Immer gerne wieder.

Gruß Alexander
Du magst Freiheit? Gönne es auch deinem Computer mit Linux!
www.alexanderroth.eu

Antworten