На почту упало письмо примерно такого содержания: "Написал на Delphi программу, которая не должна закрываться, но проблема состоит в том, что программу легко свернуть. Как исправить этот недостаток?". Код не закрывающегося окна приведен ниже: if MessageDlg("Попробуй закрыть окно", mtConfirmation, [mbYes, mbNo],0) = mrYes then Action := caNone else Action := caNone; Код достаточно простой, поясним что тут происходит и почему программа все-таки сворачивается. При попытке закрыть окно, выводится диалоговое окно с двумя кнопками "Yes" и "No". Если пользователь выберет первую кнопку, то не произойдет ничего, ровно как и не произойдет ничего по нажатию второй кнопки. Этот код справедлив только при попытке закрыть окно, но никак не работает при сворачивании окна. Если подойти к проблеме профессионально, то можно перехватывать нажатия клавиш, однако человек попросил пример полегче, поэтому вот такой код будет моментально восстанавливать свернутое окно: procedure TForm1.ApplicationEventsRestore(Sender: TObject); begin Application.Restore; end; Такой код поможет развернуть свернутое окно. 2012-11-29 19:22 Понравился сайт? Расскажи о нем друзьям:
Comments to Notes: 0 |
Чтобы оставить комментарий, пожалуйста, заполните все поля.