W whxiaoxing Unregistered / Unconfirmed GUEST, unregistred user! 2006-01-06 #1 我见过别人做过,但不知道如何实现,望各位大侠指教,谢谢
R royal1442 Unregistered / Unconfirmed GUEST, unregistred user! 2006-01-06 #3 Application.MainForm.ClientRect (TRect)
W whxiaoxing Unregistered / Unconfirmed GUEST, unregistred user! 2006-01-06 #4 可能我没把问题说清楚,我是指childform在mdiform菜单栏及工具栏的下面,状态栏上面的那个区域,谢谢
F fsldg Unregistered / Unconfirmed GUEST, unregistred user! 2006-01-06 #5 MDIFORM.WindowState := wsMaximized
R royal1442 Unregistered / Unconfirmed GUEST, unregistred user! 2006-01-06 #7 procedure TForm1.ToolButton1Click(Sender: TObject);<br>begin<br> with TForm2.Create(Self) do<br> begin<br> Top := 0;<br> Left := 0;<br> Height := Self.ClientHeight - 21 - Self.ToolBar1.Height;<br> Width := Self.ClientWidth - 21;<br> Show;<br> end;<br>end;
procedure TForm1.ToolButton1Click(Sender: TObject);<br>begin<br> with TForm2.Create(Self) do<br> begin<br> Top := 0;<br> Left := 0;<br> Height := Self.ClientHeight - 21 - Self.ToolBar1.Height;<br> Width := Self.ClientWidth - 21;<br> Show;<br> end;<br>end;
W whxiaoxing Unregistered / Unconfirmed GUEST, unregistred user! 2006-01-07 #8 royal1442,你好,你式中的21代表什么?望赐教,是指状态高度吗