delphi 无边框窗体常见问题

本文整理自网络，侵删。

 
实现无边框窗体很简单，直接将窗体的BorderStyle属性设置为bsNone即可。但是这样会引起2个问题：

1、在xp系统下，任务栏鼠标右键点击无法弹出菜单

解决办法：在FormShow中加入这个过程即可

procedure TForm2.InitSysMenu;
var
WindowStyle: Integer;
begin
  WindowStyle := GetWindowLong(Handle, -16);
  WindowStyle := WindowStyle or WS_SYSMENU or WS_MINIMIZEBOX;
  SetWindowLong(Handle, -16, WindowStyle);
end;

2、窗口最大化的时候，会把任务栏也遮盖住

解决办法：在FormResize中加入以下代码即可

Self.Constraints.MaxHeight := Screen.WorkAreaHeight;

----转自互联网
 

相关阅读 >>

Delphi 获取屏幕缩放比例

Delphi idhttp中设置非标准头信息和读写cookie

Delphi 限制窗体大小的最大值与最小值

Delphi linklabel1 用法

Delphi d10.x 并行库ppl编程之 tparallel.for

Delphi 缓冲文件流-tbufferedfilestream tfilestream 性能测试

Delphi firemonkey 学习笔记 �c tpopup 控件的使用

delph控制台(console)程序添加图标和版权信息

pchar和array [0..255] of char的区别

format、formatdatetime、formatfloat 的用法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 无边框窗体常见问题