Obsah fóra » Softvér » Programovanie, vývoj softvéru a webu » Ostatné » [Delphi] Delay

[Delphi] Delay

Stránka: 1 z 1

[ Príspevkov: 5 ]

Autor

Správa

ha2

Užívateľ

Registrovaný: 21.12.08
Prihlásený: 14.07.16
Príspevky: 114
Témy: 21 | 21

Napísal

ha2: 07.01.2010 0:31 | [Delphi] Delay

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ľ

Registrovaný: 11.01.09
Prihlásený: 28.04.26
Príspevky: 1399
Témy: 10 | 10
Bydlisko: Hrinova

Napísal

Fico: 07.01.2010 12:28 | [Delphi] Delay

Funkcia Sleep.
Má jediný parameter a to čas v milisekundách, koľko ma "čakať".

ha2

Užívateľ

Registrovaný: 21.12.08
Prihlásený: 14.07.16
Príspevky: 114
Témy: 21 | 21

Napísal autor témy Offline

ha2: 07.01.2010 12:51 | [Delphi] Delay

Fico, skus si dat do butonu trebarz sleep(50000); a pohnut formularom

Fico

Skúsený užívateľ

Registrovaný: 11.01.09
Prihlásený: 28.04.26
Príspevky: 1399
Témy: 10 | 10
Bydlisko: Hrinova

Napísal

Fico: 07.01.2010 13:26 | [Delphi] Delay

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ľ

Registrovaný: 21.12.08
Prihlásený: 14.07.16
Príspevky: 114
Témy: 21 | 21

Napísal autor témy Offline

ha2: 07.01.2010 14:19 | [Delphi] Delay

jaj tak, no fajn tip

thx

Stránka: 1 z 1

[ Príspevkov: 5 ]

[Delphi] Delay

Obsah fóra » Softvér » Programovanie, vývoj softvéru a webu » Ostatné » [Delphi] Delay

Témy		Odpovede	Zobrazenia	Posledný príspevok
Podobné témy
	delphi zapis cisla do editu v delphi v Ostatné	3	1210	11.05.2008 12:02 p360t
	start programu - delay v Windows	1	408	01.04.2009 20:16 br4n0
	delay v C v Backend	5	555	28.07.2011 11:09 BX
	praskanie zvuku, zvukový delay v hrách... v Zvuk	4	616	18.03.2013 18:54 KilgourXtruh
	Delay aneb mrhanie casom v assembleri v Backend	5	870	20.10.2009 23:53 stanke
	Delay na klavesnici kym nenastartuje OneDrive (win8.1) v Windows	1	400	28.09.2014 16:14 Lessik
	Delay pri písaní na klávesnici (HP ProBook 4730s) v Notebooky a netbooky	6	437	08.07.2012 21:44 ParadajkovyHeno
	Delphi - príklad v Ostatné	2	789	07.11.2010 23:16 majso
	Delphi priehladnost? v Ostatné	9	1075	03.01.2009 17:58 shiro
	Delphi - Polkruh v Ostatné	3	779	08.07.2011 13:51 Gumeny
	Delphi class v Ostatné	1	900	10.09.2009 16:35 Fico
	Najnovsie Delphi v Ostatné	7	777	30.06.2010 12:08 Manny
	[Delphi] komponent v Ostatné	21	2075	16.03.2010 17:05 zy-zy-zyrixi
	delphi odseknutie... v Ostatné	2	743	04.03.2009 19:29 BBUlet
	Delphi print v Ostatné	3	1024	28.07.2009 18:26 Fico
	[Delphi] Okno v Ostatné	6	803	15.01.2010 21:42 vama

Podobné témy