Таймер

← →
Сережа (2004-01-17 23:31) [0]

В проседуре запускается таймер!как сделать так чтобы выполнилась работа таймера и только после это процедура продолжила свою работу?

← →
сорсыч (2004-01-17 23:44) [1]

А в чем тогда смысл таймера?
Если конструктивно? В такой постановке вопроса - наверно никак.

← →
goga (2004-01-17 23:49) [2]

Есть такая процедура Sleep(время в миллисекундах)

← →
goga (2004-01-17 23:52) [3]

В том плане, что не надо таймер, сделай Sleep(время паузы) и потом свой код.

← →
сорсыч (2004-01-18 00:18) [4]

> goga © (17.01.04 23:49) [2]

Интересно, а вовремя слип кто работу программы делать будет? Пользователь с гумажкой? "После окончания расчета нажмите ОК?"

← →
сырсыч (2004-01-18 00:26) [5]

procedure TForm1.Button1Click(Sender: TObject);
begin
if Sender is TButton then begin
Timer1.OnTimer := Button1Click;
Timer1.Enabled := True;
end else begin
Timer1.Enabled := False;
DoOnTimerWork;
end;
end;

Таймер Найти похожие ветки