Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c