[Delphi] Sleep

Czy zna ktoś procedure, która działa tak jak Sleep() , ale nie zawiesza programu?

Odpowiedź jest prosta zamiast sleep wykorzystaj timera!

Odpowiedź jest prosta zamiast sleep wykorzystaj timera!

Nie ma mowy o używania jakiego kolwiek komponentu, potrzebna mi procedura!

A co próbujesz osiągnąć?
Być może wątk8i wchodzą w rachubę bo inaczej to tylko timer jest w stanie nie wlaczajac w rozwiazania asemblera rozwiaczac twoj problem. Prynajmniej przy mojej wiedzy.

Może SleepEx?
http://www.4programmers.net/forum/viewtopic.php?id=16355

Czy zna ktoś procedure, która działa tak jak Sleep() , ale nie zawiesza programu?

Spróbuj
Application.ProcMessage;
Sleep(1000);

Ale nie jestem pewien czy zawsze zadziała ;-) [???]

Spróbuj
Application.ProcMessage;
Sleep(1000);

Ale nie jestem pewien czy zawsze zadziała ;-) [???]

To może lepiej
For i := 1 to 100 do
begin
Application.ProcessMessage;
Sleep(10);
End;

Pochwa lony!
Ja bym Ci radził zrobić tą procedurkę w formie wątków.

1. Nie zawiesza programu...
2. Robi to co ma zrobić...
   hehe :):):)

{...}
type
TWatek = class
protected
procedure Execute; override;
end;
{...}
var
Form1: TForm1;
Watek: TWatek;

implementation

{ TWatek }

procedure TForm1.Button1Click(Sender: TObject);
begin
Watek := TWatek.Create(False);

end;

procedure TWatek.Execute;
begin
FreeOnTerminate := True;
{Your procedures}
Sleep(1000);
end;

Mam nadzieję iż to okaże się pomocne