Events + Dynamisch erstellte Componenten

[Tina Gaier]

Hallo Leute,

innerhalb einer GroupBox sollen auf Mausclick Objekte vom Typ TShape dynamisch erzeugt werden.
<br>
Klappt wie gewuenscht.
<br>
Problem:
Wie deklariere ich die dazugehoerenden Events z.B. OnMouseMove (fuer TShape-Objekte).
<br>
Komme einfach nicht weiter,
hoffe mir kann jemand helfen.
<br>
Gruss Tina

[Thorsten Lepke]

Hi Tina,<br>

Du erstellst Deine eigene MouseMove Routine und weisst die Adresse dem entsprechenden Obejkt zu:
<pre>
void __fastcall TForm1::MyMouseMove(TObject *Sender, TShiftState Shift, int X,int Y)
{
//....
}
....
Shape->OnMouseMove = MyMouseMove;
...
</pre>

Gruß Thorste

Funzt!!!
Seltsam ist nur dass mein erster Entwurf diese Zuweisung vorsah und es ging nichts!?
Grade nochmal ausprobiert: Tadellos!
Vielleicht sollte ich mal ausspannen ;-)

Gruss
Tina