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

Help Tray   Найти похожие ветки 

← →
KLAUS   (2005-01-26 18:30) [0]

Всем привет.
Возникла такая трудность, нужно чтобы прога сворачивалась в трей после нажатия на biMinimize.
Я сделал чтобы она сворачивалась, но получается только если происходит событие нажатия на кнопу, т.е. так:

procedure TForm1.Button4Click(Sender: TObject);
 begin
  Form1.Visible:=false;
end;

Так вот можно ли чтобы  событие Form1.Visible:=false; срабатывало когда нажимаю на biMinimize (т.е. сворачиваю форму ) ???

---

← →
Smithson   (2005-01-26 18:38) [1]

ну и лови это событие. Напримерб обрабатывай OnMinimize

---

← →
KLAUS   (2005-01-26 18:43) [2]

Нету обработчика этого события (OnMinimize)!

---

← →
KLAUS   (2005-01-26 18:44) [3]

Всё понял, СПАСИБО!

---

← →
KLAUS   (2005-01-26 19:11) [4]

Не, всё таки косяк возникает:

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMinimize :=Button4Click ;
end;

Получилось, но работает только один раз , т.е.
Запускаю > сварачиваю > всё good , но при повторной попытке свернуть прогу она уже не сварачивается, но если нажать на кнопку всё good.

---

← →
Юрий Зотов ©   (2005-01-26 20:35) [5]

> KLAUS   (26.01.05 19:11) [4]

WM_SYSCOMMAND + F1.

---

← →
Юрий Зотов ©   (2005-01-26 21:34) [6]

> > KLAUS

А вообше все найдете здесь:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=903

---

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

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



Память: 0.46 MB
Время: 0.042 c