窗体总在最前

最新推荐文章于 2020-12-01 17:31:35 发布

jshang

最新推荐文章于 2020-12-01 17:31:35 发布

阅读量942

点赞数

分类专栏： utility room 文章标签： application windows class

utility room 专栏收录该内容

14 篇文章 0 订阅

订阅专栏

type
      TForm1   =   class(TForm)
          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);
      //去掉窗口标题区
      Params.Style:=Params.Style   and   WS_CAPTION;
      Params.Style:=Params.Style   or   WS_POPUP;
      //设为总在最上面
      Params.ExStyle:=Params.ExStyle   or   WS_EX_TOPMOST;
      //设Windows   Owner为Desktop   Window，连messagebox都跑到他后面！！
      Params.WndParent:=GetDesktopWindow();
end;

或者用
procedure   TForm1.FormCreate(Sender:   TObject);
begin
      with   Application   do
          SetWindowLong(Handle,   GWL_EXSTYLE,   GetWindowLong(Handle,   GWL_EXSTYLE)   and
                                      not   WS_EX_APPWINDOW   or   WS_EX_TOOLWINDOW);
      SetWindowPos(Handle,   HWND_TOPMOST,   0,   0,   0,   0,   SWP_NOMOVE   or   SWP_NOSIZE);
end;