Советы по Delphi



         

Организация задержки II


Procedure Delay (Seconds: Word);VarLater: TDateTime;BeginLater := Now + (Seconds / (24.0 * 60.0 * 60.0));While Now < Later do Application.ProcessMessages;end;
[000652]


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