Четверг, 21.06.2018, 22:35
Главная Регистрация RSS
Приветствую Вас, Гость
Меню сайта
Категории раздела
Delphi [12]
С++ [0]
С# [1]
PHP [7]
Мини-чат
Наш опрос
Оцените мой сайт
Всего ответов: 23
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » 2011 » Октябрь » 8 » Я нажимаю, а она сворачивается
20:45
Я нажимаю, а она сворачивается
Сейчас я покажу вам, как сделать так чтобы при нажатии на крестик (закрытии главной формы), программа не закрывалась, а просто сворачивалась. Сам код займет всего две строчки. Итак, создаем обработчик событий OnClose на главной форме и прописываем там следующий код:

Code

Action := caNone;
Application.Minimize;


Code

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caNone;
Application.Minimize;
end;
Категория: Delphi | Просмотров: 208 | Добавил: vavilov8 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *: