Как сделать вспомогательную форму всегда активной в приложении на Delphi с VCL

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

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

Проблема

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

Решение

Чтобы решить эту проблему, необходимо изменить способ создания вспомогательной формы, чтобы она не была дочерним элементом основного окна. Это достигается путем изменения параметра WndParent в методе CreateParams вспомогательной формы.

type
  TSmallForm = class(TForm)
  private
    { Private declarations }
  protected
    { Protected declarations }
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public declarations }
  end;

var
  SmallForm: TSmallForm;

implementation

{$R *.dfm}

{ TSmallForm }

procedure TSmallForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WndParent := 0;
end;

Также, чтобы форма всегда была поверх других окон, установите свойство FormStyle в значение fsStayOnTop.

procedure TSmallForm.FormCreate(Sender: TObject);
begin
  FormStyle := fsStayOnTop;
  // Другие настройки формы
end;

Пример создания вспомогательной формы

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TSmallForm.Create(nil) do
  try
    FreeOnClose := True;
    Show;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
      Free;
  end;
end;

Комментарии

Использование трюка с WndParent не только решает проблему с минимизацией вспомогательной формы, но и влияет на поведение порядка слоев окон: вспомогательная форма может быть скрыта под основным окном, что обычно не происходит. Установка FormStyle в fsStayOnTop приводит к более агрессивному поведению, когда форма находится поверх всех окон рабочего стола.

Заключение

В этой статье мы рассмотрели, как сделать вспомогательную форму в приложении на Delphi с VCL всегда активной и независимой от основного окна. Используя метод CreateParams и устанавливая WndParent в 0, а также FormStyle в fsStayOnTop, вы сможете добиться желаемого поведения формы.

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

В статье рассмотрены методы для создания вспомогательной формы в приложении на Delphi с VCL, которая будет постоянно активной и видна на экране независимо от состояния основного окна, а также всегда находиться поверх других окон.

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

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

:: Главная :: Формы ::