Уроки програмирования на языке Delphi.

Сейчас я покажу вам, как сделать так чтобы при нажатии на крестик (закрытии главной формы), программа не закрывалась, а просто сворачивалась. Сам код займет всего две строчки. Итак, создаем обработчик событий OnClose на главной форме и прописываем там следующий код:

Action := caNone;
Application.Minimize;

Вот что у нас получилось:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caNone;
Application.Minimize;
end;

Все.!

Последние из рубрики

камиль58 26 Apr 2013 в 00:00 #

подскажите что это за кнопка онклосе, где его найти?

лдhjhgh 11 Dec 2012 в 00:00 #

лод

Андрюха 16 Dec 2010 в 00:00 #

а как только кнопку развертки окна скрыть??? подскажите плиз. Завтра курсач сдавать )

Depers 14 Dec 2010 в 00:00 #

Пишу на Lazarus
У меня крестик скрывает программу в трей, но в трее есть обработчик выхода. А сам OnClose такой.
if Status<>′Close′ then begin
CloseAction := caNone;
Hiden:=true;
MainForm.Hide;
end;

true Delpher 08 Dec 2010 в 00:00 #

Не пизди!
Код будет работать!
Сначала попробуй, потом возмущайся. А еще дефером назвался ...

Спрятать форму при закрытии !

Уроки програмирования на языке Delphi.

Похожие материалы

Последние из рубрики

ОтменитьДобавить комментарий