таймер

[darkcoder]

Привет
Подскажите как сделать чтобы программа ничего не делала n секунд.
Timer1.Enable:=true;
Timer1.Interval:=1000;
while Timer1.Enable=true do..
Почему сваливается б бесконечный цикл(из цикал не вызывает событие ontimer)?
Как сделать правильно?

Второй вопрос, то же самое только время 'спячки' должно случайно выбираться в диапазоне от 10 до 60 секнуд?
Спасибо!

[Kostia]

sleep(n) где n кол-во милесекунд.

[darkcoder]

Почему с использованием такой конструкции окно появляется не сразу а после того как программа отработает то есть через 5 сек?

procedure TForm2.FormCreate(Sender: TObject);
begin
Memo1.Lines.Clear;
Memo1.Lines.Add('1');
sleep(5000);
Memo1.Lines.Add('2');
end;

Так как делать то чтоб правильно было? Может есть рабочий примерчик на TTimer?

[Kostia]

В процедуре procedure TForm2.FormCreate(Sender: TObject); окно только создается в памяти и еще не отображается на экране.

[Квэнди]

oncreate убрать обработать onshow

[Sibedir]

И перед

sleep(5000);

нужно поставить

Application.ProcessMessages;