K210.ORG

unit Unit2;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;

 

type

  TForm2 = class(TForm)

  procedure CreateParams(var Params: TCreateParams); override;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form2: TForm2;

 

implementation

 

{$R *.dfm}

 

{ TForm2 }

 

procedure TForm2.CreateParams(var Params: TCreateParams);

begin

  inherited;

  Params.WndParent:=GetDesktopWindow();

end;

 

end.