| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Help Tray
KLAUS © (2005-01-26 18:30:00)Всем привет.
Возникла такая трудность, нужно чтобы прога сворачивалась в трей после нажатия на biMinimize.
Я сделал чтобы она сворачивалась, но получается только если происходит событие нажатия на кнопу, т.е. так:
procedure TForm1.Button4Click(Sender: TObject);
begin
Form1.Visible:=false;
end;
Так вот можно ли чтобы событие Form1.Visible:=false; срабатывало когда нажимаю на biMinimize (т.е. сворачиваю форму ) ???
Юрий Зотов (2005-01-26 21:34:00) [1]> > KLAUS
А вообше все найдете здесь:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=903
Юрий Зотов (2005-01-26 20:35:00) [2]> KLAUS (26.01.05 19:11) [4]
WM_SYSCOMMAND + F1.
KLAUS (2005-01-26 19:11:00) [3]Не, всё таки косяк возникает:
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMinimize :=Button4Click ;
end;
Получилось, но работает только один раз , т.е.
Запускаю > сварачиваю > всё good , но при повторной попытке свернуть прогу она уже не сварачивается, но если нажать на кнопку всё good.
KLAUS (2005-01-26 18:44:00) [4]Всё понял, СПАСИБО!
KLAUS (2005-01-26 18:43:00) [5]Нету обработчика этого события (OnMinimize)!
Smithson (2005-01-26 18:38:00) [6]ну и лови это событие. Напримерб обрабатывай OnMinimize
| |
