Obsah fóra » Software » Programovanie a tvorba webu » Delphi, Visual Basic » [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ý: 01.01.25
Príspevky: 1395
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ý: 01.01.25
Príspevky: 1395
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 » Software » Programovanie a tvorba webu » Delphi, Visual Basic » [Delphi] Delay

Témy		Odpovede	Zobrazenia	Posledný príspevok
Podobné témy
	delphi zapis cisla do editu v delphi v Delphi, Visual Basic	3	1152	11.05.2008 12:02 p360t
	start programu - delay v Operačné systémy Microsoft	1	374	01.04.2009 20:16 br4n0
	delay v C v Assembler, C, C++, Pascal, Java	5	509	28.07.2011 11:09 BX
	praskanie zvuku, zvukový delay v hrách... v Zvuk	4	557	18.03.2013 18:54 KilgourXtruh
	Delay aneb mrhanie casom v assembleri v Assembler, C, C++, Pascal, Java	5	827	20.10.2009 23:53 stanke
	Delay na klavesnici kym nenastartuje OneDrive (win8.1) v Operačné systémy Microsoft	1	364	28.09.2014 16:14 Lessik
	Delay pri písaní na klávesnici (HP ProBook 4730s) v Notebooky a netbooky	6	390	08.07.2012 21:44 ParadajkovyHeno
	Delphi - príklad v Delphi, Visual Basic	2	746	07.11.2010 23:16 majso
	Delphi priehladnost? v Delphi, Visual Basic	9	1019	03.01.2009 17:58 shiro
	Delphi - Polkruh v Delphi, Visual Basic	3	730	08.07.2011 13:51 Gumeny
	Delphi class v Delphi, Visual Basic	1	838	10.09.2009 16:35 Fico
	Najnovsie Delphi v Delphi, Visual Basic	7	710	30.06.2010 12:08 Manny
	[Delphi] komponent v Delphi, Visual Basic	21	1983	16.03.2010 17:05 zy-zy-zyrixi
	delphi odseknutie... v Delphi, Visual Basic	2	703	04.03.2009 19:29 BBUlet
	Delphi print v Delphi, Visual Basic	3	973	28.07.2009 18:26 Fico
	Delphi pomoc v Delphi, Visual Basic	4	690	12.01.2017 15:55 void

Podobné témy