 | | |
 | Stránka: 1 z 1
| [ Príspevkov: 5 ] | |
| Autor | Správa |
|---|
Registrovaný: 21.12.08
Prihlásený: 14.07.16
Príspevky: 114
Témy: 21 |  Napísal ha2: 07.01.2010 0:31 | |
|
mam proceduru na pauznutie programu (pricom sa nezasekne cely formular)
Kód: procedure Cakaj(MilliSec:Longint);
var TimeOut:TDateTime;
begin
TimeOut:=Now + EncodeTime(0,MilliSec div 60000,(MilliSec div 1000) mod 60,MilliSec mod 1000);
while Now < TimeOut do Application.ProcessMessages;
end;
funguje to dobre, program caka kolko chcem a nieje zamrznuty, lenze v tasklite prinom ukazuje 99% vytazenia procaku (naoko ofcourse). Mate neake lepsie riesenie? Ja viem ze to nevytazuje len to tak vyzera ale predsa
|
|
Registrovaný: 11.01.09
Prihlásený: 20.04.24
Príspevky: 1385
Témy: 9
Bydlisko: Hrinova | Napísal Fico: 07.01.2010 12:28 | |
|
Funkcia Sleep.
Má jediný parameter a to čas v milisekundách, koľko ma "čakať".
|
|
Registrovaný: 21.12.08
Prihlásený: 14.07.16
Príspevky: 114
Témy: 21 | Napísal autor témy ha2: 07.01.2010 12:51 | |
|
Fico, skus si dat do butonu trebarz sleep(50000); a pohnut formularom 
|
|
Registrovaný: 11.01.09
Prihlásený: 20.04.24
Príspevky: 1385
Témy: 9
Bydlisko: Hrinova | Napísal Fico: 07.01.2010 13:26 | |
|
ha2, nepochopili sme sa. Sleep daj to do svojej funkcie
Kód: procedure Cakaj(MilliSec:Longint);
var TimeOut:TDateTime;
begin
TimeOut:=Now + EncodeTime(0,MilliSec div 60000,(MilliSec div 1000) mod 60,MilliSec mod 1000);
while Now < TimeOut do begin
Application.ProcessMessages;
sleep(1);
end;
end;
|
|
Registrovaný: 21.12.08
Prihlásený: 14.07.16
Príspevky: 114
Témy: 21 | Napísal autor témy ha2: 07.01.2010 14:19 | |
|
jaj tak, no fajn tip  thx
|
|
| Stránka: 1 z 1
| [ Príspevkov: 5 ] | |
Podobné témy | | Témy | Odpovede | Zobrazenia | Posledný príspevok |
|---|
 | delphi zapis cisla do editu v delphi v Delphi, Visual Basic | 3 | 1105 | 11.05.2008 12:02 p360t  | | start programu - delay v Operačné systémy Microsoft | 1 | 340 | 01.04.2009 20:16 br4n0 | | delay v C v Assembler, C, C++, Pascal, Java | 5 | 476 | 28.07.2011 11:09 BX | | praskanie zvuku, zvukový delay v hrách... v Zvuk | 4 | 524 | 18.03.2013 18:54 KilgourXtruh | | Delay aneb mrhanie casom v assembleri v Assembler, C, C++, Pascal, Java | 5 | 790 | 20.10.2009 23:53 stanke | | Delay na klavesnici kym nenastartuje OneDrive (win8.1) v Operačné systémy Microsoft | 1 | 331 | 28.09.2014 16:14 Lessik | | Delay pri písaní na klávesnici (HP ProBook 4730s) v Notebooky a netbooky | 6 | 358 | 08.07.2012 21:44 ParadajkovyHeno |  | Delphi priehladnost? v Delphi, Visual Basic | 9 | 992 | 03.01.2009 17:58 shiro | | Delphi - príklad v Delphi, Visual Basic | 2 | 714 | 07.11.2010 23:16 majso | | Delphi - Polkruh v Delphi, Visual Basic | 3 | 694 | 08.07.2011 13:51 Gumeny | | Delphi class v Delphi, Visual Basic | 1 | 791 | 10.09.2009 16:35 Fico | | Najnovsie Delphi v Delphi, Visual Basic | 7 | 672 | 30.06.2010 12:08 Manny | | [Delphi] komponent v Delphi, Visual Basic | 21 | 1885 | 16.03.2010 17:05 zy-zy-zyrixi | | delphi odseknutie... v Delphi, Visual Basic | 2 | 671 | 04.03.2009 19:29 BBUlet | | Delphi print v Delphi, Visual Basic | 3 | 927 | 28.07.2009 18:26 Fico | | [Delphi] video v Delphi, Visual Basic | 4 | 712 | 15.01.2011 14:26 vama |
| Nemôžete zakladať nové témy v tomto fóre
Nemôžete odpovedať na témy v tomto fóre
Nemôžete upravovať svoje príspevky v tomto fóre
Nemôžete mazať svoje príspevky v tomto fóre
|
 |
![[Delphi] Delay](/avatars/21001.jpg)