Отображение дополнительных форм на панели задач

Для того, чтобы отобразить дополнительные формы на панели задач, нужно определить эту форму путем перегрузки метода CreateParams. Но этот метод не желательно применять для главной формы, так как могут возникнуть непредвиденные последствия.

Код формы номер 2, которая будет отображаться на панели задач

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure CreateParams(var Params: TCreateParams); override;
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.WndParent:= GetDesktopWindow; // дочерняя форма рабочего стола
end;
 
end.

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

—

02.09.2016

coder

Отображение дополнительных форм на панели задач

Код формы номер 2, которая будет отображаться на панели задач

Комментарии