Карта сайтаСсылкиКонтакты

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

PDF Печать
Статьи

Для того, чтобы отобразить дополнительные формы на панели задач, нужно определить эту форму путем перегрузки метода 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.

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


 

Добавить комментарий


Защитный код
Обновить