如何使childform的大小正好等于MDIForm的客户区大小?(100分)

  • 主题发起人 主题发起人 whxiaoxing
  • 开始时间 开始时间
W

whxiaoxing

Unregistered / Unconfirmed
GUEST, unregistred user!
我见过别人做过,但不知道如何实现,望各位大侠指教,谢谢
 
childform最大化即可
 
Application.MainForm.ClientRect (TRect)
 
可能我没把问题说清楚,我是指childform在mdiform菜单栏及工具栏的下面,状态栏上面的那个区域,谢谢
 
MDIFORM.WindowState := wsMaximized
 
不对不是这样的
 
procedure TForm1.ToolButton1Click(Sender: TObject);<br>begin<br> &nbsp;with TForm2.Create(Self) do<br> &nbsp;begin<br> &nbsp; &nbsp;Top := 0;<br> &nbsp; &nbsp;Left := 0;<br> &nbsp; &nbsp;Height := Self.ClientHeight - 21 - Self.ToolBar1.Height;<br> &nbsp; &nbsp;Width := Self.ClientWidth - 21;<br> &nbsp; &nbsp;Show;<br> &nbsp;end;<br>end;
 
royal1442,你好,你式中的21代表什么?望赐教,是指状态高度吗
 
21是窗口标题栏的高度!呵呵
 
谢谢royal1442大侠, 散分
 
后退
顶部