[Lazarus] Migające pole Edit - Wersja do druku +- SafeGroup (https://safegroup.pl) +-- Dział: Forum ogólne (https://safegroup.pl/forum-6.html) +--- Dział: Programowanie - języki i technologie (https://safegroup.pl/forum-34.html) +---- Dział: Delphi i Pascal (https://safegroup.pl/forum-36.html) +---- Wątek: [Lazarus] Migające pole Edit (/thread-10410.html) |
[Lazarus] Migające pole Edit - A11-11Q - 21.05.2016 Hmmm, muszę ciut zmodyfikowac program i przerobić jedno pole edycyjne, powiedzmy Edit2, tak, zeby przy uruchomieniu programu migało pulsacyjnie żółtym kolorem. No oczywiście nie cały czas tylko ze cztery razy i koniec (zwrocenie uwagi). Jak to rozegrać żeby rozwiązanie było "lekkie" ... pętla przy aktywacji formy... może oddzielny wątek ?? Jakieś propozycje? [dopisane później] Teraz siadłem do środowiska i na szybko zrobiłem to na osobnym wątku. Wątek nie jest uruchamiany, przy aktywacji formy, bo minimalnie/widocznie "zamrażał " start. Świetnie natomiast sprawdza się uruchomienie wątku przy wyjściu z jakiegoś innego elementu. W przykładzie poniżej zrobiłem to na wyjściu z Edit1. Kod: type Kod: //wyjscie z Edit1 - urchomienie wątku - teraz Edit2 miga RE: [Lazarus] Migające pole Edit - Tajny Współpracownik - 21.05.2016 Kod: procedure TForm1.Timer1Timer(Sender: TObject); |