Вызвать диалог завершения работы с Windows

Delphi , Программа и Интерфейс , Диалоги и Фреймы

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(FindWindow('Progman', 'Program Manager'), WM_CLOSE, 0, 0);
end;

Here's the translation of the provided text into Russian:

Поразительный идея! 😄

Приведенный код - это процедура Delphi, которая запускается при клике кнопки с надписью "Button1". PROCEDURE отправляет сообщение WM_CLOSE окну с заголовком "Program Manager" и именем класса "Progman". Это закроет окно Program Manager.

Чтобы изменить диалоговое окно по своему желанию, вам нужно подклассировать компонент TMessageDlg, используемый Delphi для отображения диалогового окна завершения. Однако, это не является простым заданием, так как оно涉гает модификацию внутренних механизмов GUI-компонентов Delphi.

Более простой подход может быть создать свой собственный диалоговое окно с помощью компонента TForm или TDialog, с лейблом и кнопкой, отображающими текст, который вы хотите. Затем можно покажать это окно вместо стандартного диалогового окна завершения.

Вот пример, как это можно сделать:

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Создайте собственный диалоговое окно
  Form2 := TForm2.Create(Self);
  Form2.Label1.Caption := 'Мы долго и трудно работали. Теперь... ваша очередь!';
  Form2.ShowModal;
end;

В этом коде создается экземпляр TForm2 (который вам нужно создать отдельно) и устанавливается надпись лейбла компонента в желаемое текст. Затем покажите это окно модально, что будет предотвращать пользовательский ввод в других частях приложения до тех пор, пока форма не будет закрыта.

Обратите внимание, что этот подход требует больше работы, чем просто изменение стандартного диалогового окна завершения, но он дает вам более контроля над внешним видом и поведением диалогового окна.

Статья описывает способ вызова диалога завершения работы с Windows при помощи процедуры TForm1.Button1Click(Sender: TObject) и использования SendMessage для закрытия окна "Программный менеджер".

Комментарии и вопросы

:: Главная :: Диалоги и Фреймы ::