Delphi - 无边无状态栏窗口
这个东西和语言无关的，只是简单的通过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样式即可去掉程序的任务栏。
相关文章
图文推荐
- 文章
- 推荐
- 热门新闻