如何让一个窗体总在最前？

weixin_42121263 2018-05-02 08:47:59

我的程序有两个窗体，主窗体用form2.show显示第二个窗体，我想让第二个窗体总在最前，怎么办？

...全文

1815 18 打赏收藏转发到动态举报

写回复

用AI写文章

18 条回复

切换为时间正序

请发表友善的回复…

发表回复

doloopcn 2018-11-13

打赏
举报

//窗口置顶
Windows.BringWindowToTop(aForm.handle);
SetWindowPos(aForm.handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);

Win7x64中测试完美通过，不明白你的为什么不行

一只鬼 2018-11-13

打赏
举报

用win32 的api的置顶函数就可以了就这个setwindowpos

天行归来 2018-05-08

打赏
举报

引用 15 楼 weixin_42121263 的回复:

[quote=引用 12 楼 lynmison 的回复:] [quote=引用 10 楼 weixin_42121263 的回复:] setwindowpos没有用，createparams没试过，怎么设？

createparams 是这么重载


type
  TForm2 = class(TForm)
  private
    { Private declarations }
    procedure CreateParams(var params: TCreateParams); override;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.CreateParams(var params: TCreateParams);
begin
  inherited;
  with Params do
  begin
    ExStyle :=ExStyle or WS_EX_TOPMOST;
  end;
  //Form2的父窗口是desktop
  Params.WndParent := GetDesktopWindow();
end;

[/quote] 这个在什么时候调用？[/quote] 这个是属于窗体自己生命周期里维护的，不需要显式调用。delphi的帮助里是这么说 The CreateWnd method calls CreateParams to initialize the parameters it passes to CreateWindowHandle. Override CreateParams to customize the way a control creates its Windows representation. When overriding CreateParams, always call the inherited method first to set the default values, then make any desired adjustments.

weixin_42121263 2018-05-08

打赏
举报

引用 12 楼 lynmison 的回复:

[quote=引用 10 楼 weixin_42121263 的回复:] setwindowpos没有用，createparams没试过，怎么设？

createparams 是这么重载


type
  TForm2 = class(TForm)
  private
    { Private declarations }
    procedure CreateParams(var params: TCreateParams); override;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.CreateParams(var params: TCreateParams);
begin
  inherited;
  with Params do
  begin
    ExStyle :=ExStyle or WS_EX_TOPMOST;
  end;
  //Form2的父窗口是desktop
  Params.WndParent := GetDesktopWindow();
end;

[/quote] 这个在什么时候调用？

lyhoo163 2018-05-06

打赏
举报

天行归来 2018-05-04

打赏
举报

引用 10 楼 weixin_42121263 的回复:

setwindowpos没有用，createparams没试过，怎么设？

createparams 是这么重载


type
  TForm2 = class(TForm)
  private
    { Private declarations }
    procedure CreateParams(var params: TCreateParams); override;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.CreateParams(var params: TCreateParams);
begin
  inherited;
  with Params do
  begin
    ExStyle :=ExStyle or WS_EX_TOPMOST;
  end;
  //Form2的父窗口是desktop
  Params.WndParent := GetDesktopWindow();
end;

天行归来 2018-05-04