Określenie, który komponent na formularzu jest aktywny
Aktywny komponent formularza jest przechowywany przez właściwość ActiveControl, możemy np. dodać do formularza komponent Timer (z zakładki System) i utworzyć dla niego funkcję obsługującą zdarzenie OnTimer, która będzie wyświetlała na etykiecie Label1 nazwę aktywnego komponentu:
Unit1.cpp |
void __fastcall TForm1::Timer1Timer(TObject *Sender) |
albo w tejże funkcji obsługującej zdarzenie OnTimer zmieniać położenie aktywnego komponentu co spowoduje, że będzie się on przesuwał w lewo co jedno "tyknięcie" timera, które jest ustawione w jego właściwości Interval (zapis "JakasLiczba -= LiczbaOdejmowana" oznacza, że od liczby JakasLiczba zostanie odjęta liczba LiczbaOdejmowana, jest to tylko skrót, równie dobrze możnaby napisać "JakasLiczba = JakasLiczba - LiczbaOdejmowana"):
Unit1.cpp |
void __fastcall TForm1::Timer1Timer(TObject *Sender) |