Реклама
Реклама
VisitTime.ru помогает быстро организовать онлайн-запись клиентов и держать расписание под контролем.
📅 Настройте услуги и длительность приёма, откройте свободные окна — и клиенты запишутся сами в пару кликов.
🕒 Вы избегаете накладок, меньше тратите времени на переписки и звонки, а автоматические напоминания повышают явку.
💡 Отличное решение для мастеров, студий и сервисных команд, которым важны порядок и стабильная загрузка.
Начать пользоваться сервисом



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

Опубиковано: 07.06.2008 г., автор: , просмотров: 36131

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

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

Action := caNone;
Application.Minimize;

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

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

Все.!



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

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

Сергей 15 Jul 2010 в 00:00 #
А у меня на панели задач остается (обычное сворачивание)
Impulset 25 Jun 2010 в 00:00 #
Александр KLM , так она на панели видна же,
САМЫЙ ЛУЧШИЙ СПОСОБ спрятать прогу при её закрытии -


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caNone;
ShowWindow(Handle, SW_HIDE); //прячем форму(Handle - дес
//криптор формы(тоже что и
// Form1.Handle, помоему

ShowWindow(Application.Handle, SW_HIDE);//прячем само при
//ложение))))
end;


напоследок советую читать книги Михаила Флёнова
Александр KLM 15 Jun 2010 в 00:00 #
Я прятал програмку очн просто Form1.Visible
Евгений Шепарнёв 28 May 2010 в 00:00 #
А всё я понял как:
Просто форме нужно прописать это:
Form1.BorderStyle := bsDialog;
Евгений Шепарнёв 27 May 2010 в 00:00 #
А как убрать кнопки "сворачивания и развертывания" что бы была только кнопка "закрыть"?

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