如何使childform的大小正好等于MDIForm的客户 找金蝶erp软件下载
记账软件版1楼: 我见过别人做过,但不知道如何实现,望各位大侠指教,谢谢
2楼: childform最大化即可 如金蝶erp软件下载
3楼: Application.MainForm.ClientRect (TRect)
4楼: 可能我没把问题说清楚,我是指childform在mdiform菜单栏及工具栏的下面,状态栏上面的那个区域,谢谢
5楼: MDIFORM.WindowState := wsMaximized
6楼: 不对不是这样的
记账软件版7楼: procedure TForm1.ToolButton1Click(Sender: TObject);
begin
with TForm2.Create(Self) do
begin
Top := 0;
Left := 0;
Height := Self.ClientHeight - 21 - Self.ToolBar1.Height;
Width := Self.ClientWidth - 21;
Show;
end;
end;
8楼: royal1442,你好,你式中的21代表什么?望赐教,是指状态高度吗
9楼: 21是窗口标题栏的高度!呵呵
10楼: 谢谢royal1442大侠, 散分