Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Небольшой вопрос

Grotesque © (2006-07-11 17:45:00)
Как сделать, чтобы через опредёлённое время с момента создания формы (onCreate) прооисходило какое-либо действие например ShowMessage('')?

Grotesque (2006-07-11 18:42:00) [1]
Попробую

Loginov Dmitry (2006-07-11 18:32:00) [2]
> C помощью цикла?

С помощью таймера.

Grotesque (2006-07-11 18:25:00) [3]
Спасибо! Ещё вопрос. Как сделать чтобы ShowMessage вылазил каждые100000 мс? C помощью цикла?

Grotesque (2006-07-11 18:25:00) [4]
Спасибо! Ещё вопрос. Как сделать чтобы ShowMessage вылазил каждые100000 мс? C помощью цикла?

StriderMan (2006-07-11 18:23:00) [5]

> Timer1.interval:=500;// через пять сек надо очухаться

5 сек = 5000 мсек

tesseract (2006-07-11 18:19:00) [6]
> [2] Grotesque (11.07.06 18:11)

Извращённый пример сплэша.

var NeedClose:boolean; procedure Tform1.FormCreate(Sender:Tobject) begin Timer1.interval:=500;// через пять сек надо очухаться Timer1.Enabled:=true; // будем считать что по умолчанию вырублено NeedClose:=false; end; procedure Tform1.Timer1Timer(Sender:Tobject) begin ShowMessage('Секундой меньше'); NeedClose:=true; end; procedure TFrom1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose:=NeedClose; end;

Ivolg (2006-07-11 18:17:00) [7]
>Grotesque

Бросаешь Timer на форму и используешь собитие OnTimer... Свойство Interval
- это время в миллисекунах...

Grotesque (2006-07-11 18:11:00) [8]
Смотрел, а как собсно им пользоваться?

Calibr (2006-07-11 18:11:00) [9]
Напиши обработчик создания формы:

procedure TForm1.FormCreate(Sender: TObject); begin sleep(ms);//ms = время в миллисекундах ShowMessage('Прошло ms миллисекунд'); end;

tesseract (2006-07-11 17:45:00) [10]
см TTimer.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »