Delphi пауза
Автор † Мастер Дарий † задал вопрос в разделе Другие языки и технологии
Дельфи 7 - ПАУЗА и получил лучший ответ
Ответ от Звонок[гуру]
procedure Delay (Seconds,MilliSec:Word);
var
TimeOut :TDateTime;
begin
TimeOut:=Now+EncodeTime(0,Seconds div 60, Seconds mod 60,
MilliSec);
while Now < TimeOut do
Application.ProcessMessages;
end;
пользуйся
звонок
Мыслитель
(5555)
не за что я знал что нужно.
Очень удобно втыкаешь в любую точку кода и все
Ответ от Dmitry Shin[гуру]
никак, можешь тупо цикл с расчетом какого нибудь косинуса - чем не вариант посчитать сумму косинусов?:)
никак, можешь тупо цикл с расчетом какого нибудь косинуса - чем не вариант посчитать сумму косинусов?:)
Ответ от Алексей Пастухов[гуру]
sleep(милисек)1 сек = 1000 милисекпропустил комент про слипа почему нет
sleep(милисек)1 сек = 1000 милисекпропустил комент про слипа почему нет
Ответ от •°•° mikityak •°•°[гуру]
Создать любой цыкл....
Создать любой цыкл....
Ответ от YK[гуру]
Цыкл здесь не покатит, так как заданную паузу он будет выдерживать поразному в зависимости от мощности компа.Я в таких случая пользуюсь Timer-ом. Просто вешаю на форму таймер. Задаю в нем интервал времени и делаю так:begin ShowMessage('РАЗ'); Timer1.Endblr:=True;end;...OnTimer....begin ShowMessage('ДВА'); Timer1.Endblr:=False;end;
Цыкл здесь не покатит, так как заданную паузу он будет выдерживать поразному в зависимости от мощности компа.Я в таких случая пользуюсь Timer-ом. Просто вешаю на форму таймер. Задаю в нем интервал времени и делаю так:begin ShowMessage('РАЗ'); Timer1.Endblr:=True;end;...OnTimer....begin ShowMessage('ДВА'); Timer1.Endblr:=False;end;
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Дельфи 7 - ПАУЗА