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

Знаю что повторюсь, но поиск ни чего не дал...   Найти похожие ветки 

← →
Koala   (2004-07-05 15:31) [0]

Как мне нажав на кнопку закрыть в правом углу формы, не закрывать приложение а свернуть его????

---

← →
ORMADA ©   (2004-07-05 15:33) [1]

обрабатывать OnCloseQuery и минимизировать форму

---

← →
Koala   (2004-07-05 15:39) [2]

в OnCloseQuery пишу Application.Minimize;
сначало приложение сворачивается, а затем закрывается, что не так делаю?

---

← →
cae ©   (2004-07-05 15:41) [3]

..........
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;

---

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

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



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