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

Delphi , Компоненты и Классы , 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;

Статья Как можно обойтись без TTimer и наиболее рационально использовать ресурсы системы раздела Компоненты и Классы TTimer может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: TTimer ::