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

Action := caNone;  
Application.Minimize;  

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

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

Все.!

Добавлено: 31 Июля 2018 21:26:40 Добавил: Андрей Ковальчук Нравится 0

Добавить