Создание нового окна в Delphi с независимой кнопкой в панели задач: пошаговое руководство

Delphi , ОС и Железо , Windows

Вопрос, поставленный пользователем, заключается в том, как сделать так, чтобы в приложении Delphi при открытии нового окна (формы) оно появлялось в панели задач Windows с отдельной кнопкой, как это происходит, например, в браузере Firefox. Это позволит пользователю переключаться между окнами с помощью комбинации клавиш Alt+Tab. По умолчанию, если открыть форму в приложении Delphi, она не будет отображаться в панели задач как отдельное окно, а будет считаться дочерним элементом основного окна.

Подтвержденный ответ предлагает переопределить процедуру CreateParams формы, чтобы она отображалась в панели задач как отдельное окно. В процедуре CreateParams нужно установить флаг WS_EX_APPWINDOW и обнулить свойство WndParent, чтобы форма не была связана с родительским окном. Это позволит каждой форме иметь свою кнопку в панели задач.

Теперь давайте шаг за шагом рассмотрим, как реализовать этот подход:

1. Откройте ваш проект в Delphi и найдите форму, которую вы хотите открыть в панели задач как отдельное окно.

2. В разделе interface формы добавьте процедуру CreateParams, переопределяя её:

type
  TMyForm = class(TForm)
  ...
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  ...
end;

1. В разделе implementation формы реализуйте процедуру CreateParams:

procedure TMyForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
  Params.WndParent := 0;
end;

1. Сохраните изменения и закройте форму с помощью компиляции введенных изменений.

Примечание: Согласно комментариям, приведенным в "Подтвержденном ответе", строка Params.WndParent := 0; может быть не лучшим решением в плане согласованности форм. Вместо этого, можно было бы ограничиться установкой флага WS_EX_APPWINDOW, если это соответствует целям разработки.

1. После внесения этих изменений, если вы откроете форму из другой части вашего приложения, например, через обработчик нажатия на кнопку, она появится в панели задач как отдельное окно:

procedure Form1ButtonClick(Sender: TObject);
begin
  Form2.Show;
end;

Теперь, после клика по кнопке в главном окне, новое окно откроется в панели задач, и вы сможете переключаться между основным окном и открытым с помощью Alt+Tab.

Этот метод дает более простое решение по сравнению с прямым использованием функций Windows API, и является более предпочтительным для большинства случаев использования в приложениях Delphi.

Создано по материалам из источника по ссылке.

Для того чтобы в приложении Delphi новое окно (форма) появлялось в панели задач Windows с отдельной кнопкой, необходимо переопределить процедуру `CreateParams` формы, установив флаг `WS_EX_APPWINDOW` и обнулив свойство `WndParent`, чтобы форма считалась

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::