Question

怎么去掉子窗口的蓝条 delphi

怎么去掉子窗口的蓝条？

注意：是子窗口，我试过了form.borderstyle:=bsNone;是不行的？

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Handle,gwl_style,GetWindowLong(handle,gwl_style)
and not ws_caption);
// GetWindowLong(handle,gwl_style)获取窗体原始属性，"and not ws_caption"表示
//将原始属性减去ws_caption属性。这是通过将ws_caption属性作"取反"操作后
//再与原始属性作"与"运算来实现的。
ClientHeight:=Height;
//将无标题栏客户区窗体高设置为原来窗体的高度，这样就看不到窗体标题栏
Refresh;
end;

Answer 2

恐怕没有什么好方法。问题是你一定要用子窗口这种方式吗？
是不是可以考虑用工具窗口呢。
FormStyle设置成Normal, BorderStyle设置成bsSizeToolWin.

Answer 3

可以.什么窗口都行.

Answer 4

子窗口
是mdi的吗?