poradna.net
Delphi - ukončeni programu Zdravím.
Bych chtěl, aby při spuštění aplikace se sama po par vteřinach ukončila.
sleep(10000);
Application.Terminate;
Ale kam s tým?
Jsem zkoušel FormShow,FormActivate a nic.
Fungovat to funguje, ale form se na ploše nevykresli.
Proč?
Jen když dam Application.Terminate do timeru tak je to funkční.
| Předmět | Autor | Datum |
|---|---|---|
| Netuším čo riešiš s funkciou Sleep ...::) akurát Ti to pozastaví vykonávanie programu na počet milis… pme 23.09.2019 16:11 |
pme | |
| Ano, o to mi jde.
Program se spust.Vykresli se na ploše form, počka se par vteřin a program se ukonč… Kocap 23.09.2019 17:02 |
Kocap | |
| Klidne to dej do form.Activate, ale pred Sleep zavolej Form.Update, pripadne Application.processmess… Jan Fiala 23.09.2019 18:13 |
Jan Fiala | |
| Děkují, ja si myslel, že je to kravina, cpat to do timeru. Kocap 23.09.2019 20:13 |
Kocap | |
| Kravina to není. Ale pokud ti nevadí, že ten program bude na 10 sekund "mrtvý", tak tohle řešení bud… Wikan 23.09.2019 20:48 |
Wikan | |
| Ten Timer je lepší řešení. Já ti jen napsal, proč ti to nefungovalo v OnActivate. poslední Jan Fiala 24.09.2019 07:34 |
Jan Fiala | |
| Dokud neproběhne Activate (a nevrátí se to do útrob komponenty), form se nevykreslí. Rce 24.09.2019 00:40 |
Rce | |
| IMHO nejednodušíí je nacpat na form komponentu Timer, nastavit čas a do události OnTime dát Form.Clo… Rce 24.09.2019 00:11 |
Rce |
Zpět do poradny Odpovědět na původní otázku Nahoru
Netuším čo riešiš s funkciou Sleep ...
akurát Ti to pozastaví vykonávanie programu na počet milisekúnd, ktoré si definuješ...
Takže riešenie cez Timer je pre Teba to pravé.
Ano, o to mi jde.
Program se spust.Vykresli se na ploše form, počka se par vteřin a program se ukonči.
FormShow //form se vykresli.
sleep(10000); // počkame
Application.Terminate; // ukončime program.
Klidne to dej do form.Activate, ale pred Sleep zavolej Form.Update, pripadne Application.processmesssages, aby mel form prostor na vykresleni
Děkují, ja si myslel, že je to kravina, cpat to do timeru.
Kravina to není. Ale pokud ti nevadí, že ten program bude na 10 sekund "mrtvý", tak tohle řešení bude stačit.
Ten Timer je lepší řešení. Já ti jen napsal, proč ti to nefungovalo v OnActivate.
Dokud neproběhne Activate (a nevrátí se to do útrob komponenty), form se nevykreslí.
IMHO nejednodušíí je nacpat na form komponentu Timer, nastavit čas a do události OnTime dát Form.Close a basta fidli. Vše zařídí mechanismy komponent Delphi, o nic se nemusíš starat, vše poběží jak má.
Sleep ti umrtví program, nehneš s oknem a nic se nebude vykreslovat, uživateli se bude zdát program zaseklý a bude se ho snažit zabít.