隐藏子窗体的标题栏(100分)

狄克

Unregistered / Unconfirmed
GUEST, unregistred user!
如何实现隐藏子窗体的标题栏,并将子窗体定位在主窗体客户区域的
最上方且实现不能让用户移动该子窗体
 
MDIChild压
 
用MDIChild可以实现
 
FormStyle := fsNone;
 
把子窗体当作一控件创建到主窗上,把子窗体的borderstyle 设成bsnone
 
private
procedure CreateParams(var Params: TCreateParams);override;

procedure TMDIForm1.CreateParams(var Params: TCreateParams);
begin
Inherited CreateParams(Params);
Params.Style:=Params.Style and (not WS_CAPTION);
end;
 
FormStyle := fsNone;
将此代码放入子窗体CREATE事件中
 
接受答案了.
 
顶部