Мини-чат
Наш опрос
Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Поиск
Новое на форуме
| Название : Способ отправки файлов с TClientSocket & TServerSocket | |
| Название : Как получить список логических дисков? | |
| Название : Как добавить приложение в автозагрузку | |
| Название : Сохранение странички в файл из TWebBrowser | |
| Название : Как програмно отключить и включить мышь | |
Календарь
| « Октябрь 2011 » | ||||||
| Пн | Вт | Ср | Чт | Пт | Сб | Вс |
| 1 | 2 | |||||
| 3 | 4 | 5 | 6 | 7 | 8 | 9 |
| 10 | 11 | 12 | 13 | 14 | 15 | 16 |
| 17 | 18 | 19 | 20 | 21 | 22 | 23 |
| 24 | 25 | 26 | 27 | 28 | 29 | 30 |
| 31 | ||||||
Друзья сайта
Главная » 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; | |
|
| |
| Всего комментариев: 0 | |