Ĺadny brzuch
Zadeklarowałem sobie w kodzie 2-wymiarową tablice SpeedButtonów:
TSpeedButton *a[15][15]; for (int x=0; x<15; x++) for (int y=0; y<15; y++) { a[x][y]=new TSpeedButton (Panel1); a[x][y]->Parent=Panel1; a[x][y]->Top=y*24; a[x][y]->Left=x*24; a[x][y]->Height=25; a[x][y]->Width=25; }
Jak zdefiniować (ewentualnie zadeklarować) funkcje onclick() takich SpeedButtonów, aby została rzeczywiście wywołana po kliknięciu na jeden z nich? (Wszystkie przyciski mają mieć taką samą funkcje onclick)
Stworzyc procedure o nazwie np. Klik z paramentrem Sender * TObject i przypisac a[x][y]->onclick=Kilk;
żeby mieć dostęp do SpeedButtona musisz zrobić rzutowanie
TSpeedButton *sb = dynamic_cast<TSpeedButton*> (Sender); if ( sb != NULL ) sb->Top= sb->Top + 10;
klikniety buton powinien sie przesunać, mam podobny problem tylko coś mi to nie chce działać
ja robie na TImage
Dzięki krajew4 :) ! A Ty strzelba chyba trochę źle mnie zrozumiałeś ;)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
TSpeedButton *a[15][15]; for (int x=0; x<15; x++) for (int y=0; y<15; y++) { a[x][y]=new TSpeedButton (Panel1); a[x][y]->Parent=Panel1; a[x][y]->Top=y*24; a[x][y]->Left=x*24; a[x][y]->Height=25; a[x][y]->Width=25; }
Jak zdefiniować (ewentualnie zadeklarować) funkcje onclick() takich SpeedButtonów, aby została rzeczywiście wywołana po kliknięciu na jeden z nich? (Wszystkie przyciski mają mieć taką samą funkcje onclick)
Stworzyc procedure o nazwie np. Klik z paramentrem Sender * TObject i przypisac a[x][y]->onclick=Kilk;
żeby mieć dostęp do SpeedButtona musisz zrobić rzutowanie
TSpeedButton *sb = dynamic_cast<TSpeedButton*> (Sender); if ( sb != NULL ) sb->Top= sb->Top + 10;
klikniety buton powinien sie przesunać, mam podobny problem tylko coś mi to nie chce działać
ja robie na TImage
Dzięki krajew4 :) ! A Ty strzelba chyba trochę źle mnie zrozumiałeś ;)