Budík – Delphi – Fórum – Programujte.com

Ahoj, chtěl jsem se zeptat, jestli by mi někdo neporadil s touto úlohou. Zkouším to řešit pomocí cyklu Until, že dokud nezmáčku tlačítko, tak Form1 bliká, jenže jakmile TimeToStr(now) dosáhne hodnoty buzení, tak by se formulář měl rozblikat, místo toho se zasekne a musí se shodit přes Ctrl+F9

Uživatel ať si pomocí vhodných ovládacích prvků nastaví čas
A aplikace v případě, že už daný čas nastal rozbliká formulář, který se v tu chvíli roztáhne na celou obrazovku a bude blikat v náhodně generovaných barvách. Po kliku na plochu obrazovky se vrátí aplikace do „normální“ podoby.
Nezapomeňte na režim vypnuté buzení!

( Rozšíření pro pokročilejší studenty – budík bude budit příjemnou melodií)

Dokud běží ten tvůj cyklus, tak neběží nic jiného. Tedy ani obsluha tlačítek apod. Můžeš v tom cyklu volat Application.ProcessMessages, ale nejlepší by to bylo udělat bez toho blokujícího cyklu.

#1 Filip
A nebo to hodit do samostatného vlákna  a je to! :-)