Hallo,
ich habe in einer Schleife dynamisch mehrere TShape objekte auf einer
Maske erstellt. Jetzt möchte ich, dass bei klick auf eines dieser Elemente
eine Aktion ausgeführt wird (Farbe des Shapes hin und her schalten usw..).
Wie definiere ich den MouseDown-Event und die aufzurufende Funktion bei dymisch erzeugten Objekten?
---------------------------------------------------------------------------------------------
for (int i=0;i<8 ;i++ ) {
TShape *Shp = new TShape(this);
Shp->Parent=Form4;
Shp->Top=i*20+topPos;
Shp->Left=15+leftPos;
Shp->Width=8;
Shp->Height=15;
Shp->Shape=stRoundRect;
Shp->Brush->Color=clGrayText;
Shp->Name = "LED_"+Name+IntToStr(i);
//Shp->OnMouseDown=ChgStat;
Shp->Visible=true;
}
ich habe in einer Schleife dynamisch mehrere TShape objekte auf einer
Maske erstellt. Jetzt möchte ich, dass bei klick auf eines dieser Elemente
eine Aktion ausgeführt wird (Farbe des Shapes hin und her schalten usw..).
Wie definiere ich den MouseDown-Event und die aufzurufende Funktion bei dymisch erzeugten Objekten?
---------------------------------------------------------------------------------------------
for (int i=0;i<8 ;i++ ) {
TShape *Shp = new TShape(this);
Shp->Parent=Form4;
Shp->Top=i*20+topPos;
Shp->Left=15+leftPos;
Shp->Width=8;
Shp->Height=15;
Shp->Shape=stRoundRect;
Shp->Brush->Color=clGrayText;
Shp->Name = "LED_"+Name+IntToStr(i);
//Shp->OnMouseDown=ChgStat;
Shp->Visible=true;
}
Comment