Форма Delphi на панели задач

Delphi , Рабочий стол , TaskBar

Автор: Neil Rubenking

Вот что вы можете сделать, чтобы заставить форму Delphi иметь кнопку на панели задач:

type
  TForm2 = class(TForm)
  private
    { Private declarations }
    procedure CreateParams(var Params: TCreateParams); override;
  end;
...

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do
    ExStyle := ExStyle or WS_EX_APPWINDOW;
end;

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

Код, который вы предоставили, - это базовый пример создания формы Delphi, которая может иметь кнопку на панели задач.

Вот что каждый раздел делает:

• type TForm2 = class(TForm): Это объявляет новый класс формы, называемый TForm2, который наследуется от TForm.

• private procedure CreateParams(var Params: TCreateParams); override;: Это метод, который будет переопределен в классе TForm2. Ключевое слово override указывает, что этот метод переопределяет виртуальный метод базового класса. Метод CreateParams используется для установки стиля окна и расширенного стиля окна для формы.

• procedure TForm2.CreateParams(var Params: TCreateParams); begin... end;: Это реализация overridden метода CreateParams.

• inherited CreateParams(Params): Это вызывает оригинальный метод CreateParams базового класса, чтобы настроить основные параметры формы.

• with Params do ExStyle := ExStyle or WS_EX_APPWINDOW;: Это устанавливает расширенный стиль окна (ExStyle) формы для включения WS_EX_APPWINDOW, что позволяет пользователю минимизировать и восстановить форму.

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

Добавление кнопки на панели задач в Delphi обычно выполняется с помощью компонента TTaskButton и установки свойства Parent для этой кнопки на форму. Затем можно обрабатывать событие OnClick кнопки как нужно.

Вот пример:

type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure TaskButton1Click(Sender: TObject);
  end;

var
  Form2: TForm2;

implementation

procedure TForm2.FormCreate(Sender: TObject);
begin
  with TaskButton1 do
    Parent := Self;
end;

procedure TForm2.TaskButton1Click(Sender: TObject);
begin
  ShowMessage('Кнопка задачи кликнута!');
end;

В этом примере компонент TTaskButton добавляется на форму в событии FormCreate, а его родитель устанавливается на форму. Событие TaskButton1Click обрабатывается при клике кнопки задачи.

В статье описывается способ добавления кнопки на форму Delphi в панель задач, используя класс TForm и процедуру CreateParams.

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

:: Главная :: TaskBar ::