狄 狄克 Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-16 #1 如何实现隐藏子窗体的标题栏,并将子窗体定位在主窗体客户区域的 最上方且实现不能让用户移动该子窗体
X xx hh Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-16 #5 把子窗体当作一控件创建到主窗上,把子窗体的borderstyle 设成bsnone
L lb_icesea79 Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-16 #7 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;
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;
D dodo Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-16 #8 FormStyle := fsNone; 将此代码放入子窗体CREATE事件中