|
 | | |
| Autor | Správa |
|---|
ha2
Užívateľ
Založený: 21.12.2008
Príspevky: 114
 |
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 |
| |
  |
|
Fico
Skúsený užívateľ
Založený: 11.01.2009
Príspevky: 1049
|  Zaslal: Št 07.01.10 13:28 |   |
Funkcia Sleep.
Má jediný parameter a to čas v milisekundách, koľko ma "čakať". |
| |
 |
|
ha2
Užívateľ
Založený: 21.12.2008
Príspevky: 114
| | Zaslal: Št 07.01.10 13:51 | |
Fico, skus si dat do butonu trebarz sleep(50000); a pohnut formularom  |
| |
|
|
Fico
Skúsený užívateľ
Založený: 11.01.2009
Príspevky: 1049
| | Zaslal: Št 07.01.10 14: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; |
|
| |
|
|
ha2
Užívateľ
Založený: 21.12.2008
Príspevky: 114
| | Zaslal: Št 07.01.10 15:19 | |
jaj tak, no fajn tip  thx |
| |
|
|
|
Nemôžete pridávať nové témy do tohto fóra.
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.
Nemôžete hlasovať v tomto fóre.
|
| |
