Как можно обойтись без Ttimer и наиболее рационально использовать ресурсы системы?

Олегом Кулабухов отвечает:

procedure Delay(ms : longint);
var
TheTime : LongInt;
begin
TheTime := GetTickCount + ms;

while GetTickCount < TheTime do
Application.ProcessMessages;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Start Test');
Delay(2000);
ShowMessage('End Test');

end;

[001794]

Содержание раздела