| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Знаю что повторюсь, но поиск ни чего не дал... [D6]
Koala © (2004-07-05 15:31:00)Как мне нажав на кнопку закрыть в правом углу формы, не закрывать приложение а свернуть его????
cae (2004-07-05 15:41:00) [1]..........
var
ExitEnable : Boolean = false ;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if ExitEnable then exit ;
CanClose := False ;
Application.Minimize ;
end;
procedure TForm1.ButtonExitClick(Sender: TObject);
begin
ExitEnable := True ;
Close ;
end;
Koala (2004-07-05 15:39:00) [2]в OnCloseQuery пишу Application.Minimize;
сначало приложение сворачивается, а затем закрывается, что не так делаю?
ORMADA (2004-07-05 15:33:00) [3]обрабатывать OnCloseQuery и минимизировать форму
| |
