Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.07.30;
Скачать: CL | DM;

Вниз

Небольшой вопрос   Найти похожие ветки 

 
Grotesque   (2006-07-11 17:45) [0]

Как сделать, чтобы через опредёлённое время с момента создания формы (onCreate) прооисходило какое-либо действие например ShowMessage("")?


 
tesseract ©   (2006-07-11 17:45) [1]

см TTimer.


 
Grotesque   (2006-07-11 18:11) [2]

Смотрел, а как собсно им пользоваться?


 
Calibr   (2006-07-11 18:11) [3]

Напиши обработчик создания формы:


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


 
Ivolg ©   (2006-07-11 18:17) [4]

>Grotesque

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


 
tesseract ©   (2006-07-11 18:19) [5]

> [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;


 
StriderMan ©   (2006-07-11 18:23) [6]


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

5 сек = 5000 мсек


 
Grotesque   (2006-07-11 18:25) [7]

Спасибо! Ещё вопрос. Как сделать чтобы ShowMessage вылазил каждые 100000 мс? C помощью цикла?


 
Grotesque   (2006-07-11 18:25) [8]

Спасибо! Ещё вопрос. Как сделать чтобы ShowMessage вылазил каждые 100000 мс? C помощью цикла?


 
Loginov Dmitry ©   (2006-07-11 18:32) [9]

> C помощью цикла?


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


 
Grotesque   (2006-07-11 18:42) [10]

Попробую



Страницы: 1 вся ветка

Текущий архив: 2006.07.30;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.033 c
1-1150459836
oleggar
2006-06-16 16:10
2006.07.30
можно всю форму создать и обслуживать в потоке ?


3-1148743113
Sword
2006-05-27 19:18
2006.07.30
Fast report и два запроса


1-1150189912
Vir
2006-06-13 13:11
2006.07.30
Сравнение строк по маске.


2-1152204491
dest81
2006-07-06 20:48
2006.07.30
Ibquery


15-1151639667
MrShadow_
2006-06-30 07:54
2006.07.30
Хелп!!!