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

автоматически убирать форму   Найти похожие ветки 

← →
DimaK ©   (2003-03-30 15:18) [0]

Подскажите, как заставить форму автоматически убираться с экрана, как это сделано в панели MS Office и в кнопке "Пуск" Windows.

---

← →
Song ©   (2003-03-30 16:02) [1]

Дык самому скрывать на onDeactivate например

---

← →
DimaK ©   (2003-03-30 22:48) [2]

А по подробнее можно?
Мне просто необходимо чтобы при не активности (или бездействия)
формы в течении 5 секунд она просто исчезала с экрана.

---

← →
Palladin ©   (2003-03-31 00:20) [3]

добавь на форму таймер

procedure TForm1.FormActivate; // повешаешь на OnActivate формы;
begin
timer1.Enabled:=false;
end;

procedure TForm1.FormDeactivate; // повешаешь на OnDeactivate
begin
timer1.tag:=0;
timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer; // повешаешь на OnTimer у Timer1
begin
inc(timer1.tag);
if timer1.tag=5 then hide;
end;

---

← →
Привет   (2003-04-01 02:46) [4]

модераторам!

---

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

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



Память: 0.45 MB
Время: 0.014 c