Delphi - 无边无状态栏窗口

页面导航:首页 > 软件编程 > Delphi > Delphi - 无边无状态栏窗口

Delphi - 无边无状态栏窗口

来源: 作者: 时间:2016-01-15 15:17 【

这个东西和语言无关的,只是简单的通过SetWindowLongPtr来设置窗口样式。下面以Delphi XE为例var NewStyle: Integer;begin Application Initialize; Application MainFormOnTaskbar := Tru

这个东西和语言无关的,只是简单的通过SetWindowLongPtr来设置窗口样式。

下面以Delphi XE为例


var
  NewStyle: Integer;
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TMainForm, MainForm);
  // WS_OVERLAPPED | WS_VISIBLE | WS_SYSMENU | WS_MINIMIZEBOX | WS_MAXIMIZEBOX | WS_CLIPCHILDREN | WS_CLIPSIBLINGS
  // = $16030000
  NewStyle := GetWindowLongPtr(MainForm.Handle, GWL_EXSTYLE) and ($16030000) or WS_EX_TOOLWINDOW;
  SetWindowLongPtr(MainForm.Handle, GWL_EXSTYLE, NewStyle);
  Application.Run;
end.

Application.MainFormOnTaskbar要设置为True,只有这样,主窗口才会显示在任务栏,接着下面的代码才会有意义。

$16030000是一些窗口样式的组合值,上面只是为了简化书写才写成数字,但注释里有这些样式的常量值。

接着设置WS_EX_TOOLWINDOW样式即可去掉程序的任务栏。

Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<