Форум: "Основная";
Текущий архив: 2004.07.18;
Скачать: [xml.tar.bz2];
Вниз
Знаю что повторюсь, но поиск ни чего не дал... Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.07.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.037 c