访问量: 30647次,访客数: 26001人,浏览量: 1次 
首页  编辑  

总在最后的窗体

Tags: /超级猛料/VCL/Form,窗体/窗体特效/   Date Created: Mon Apr 05 2004 01:48:17 GMT+0000 (Coordinated Universal Time)

在所有窗口后面的Background窗体:

    procedure CreateParams ( var Params : TCreateParams ); override ;

  public

    { Public declarations }

  end ;

var

  Form1 : TForm1 ;

implementation

{$R *.dfm}

procedure TForm1 . CreateParams ( var Params : TCreateParams );

begin

  inherited CreateParams ( Params );

  if Assigned ( Application . MainForm ) then

  begin

    Params . WndParent := GetDesktopWindow ;

    Params . Style := WS_CHILD ;

  end ;

end ;