消除标题栏好办,有两种方法——
一、在子窗口的OnCreate事件里:
SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and not WS_CAPTION);
Height := Height + 1;//调整一下大小使它重绘
二、重载子窗口的CreateParams方法:
在子窗口类的定义中加上:
protected
procedure CreateParams(var Params: TCreateParams); override;
在子窗口(如TMDIChild)的实现部分:
procedure TMDIChild.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do Style := Style and not WS_CAPTION;
end;