5,939
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
dyh506 2004-11-04
- 打赏
- 举报
你如果是atuo create就可以直接show了
不然你就要先创建。mdi的子窗口没有showmodal的
不然你就要先创建。mdi的子窗口没有showmodal的
lfslfs5367 2004-11-01
- 打赏
- 举报
show()不用showmodal!!!
boyandman 2004-11-01
- 打赏
- 举报
我找到一种方法很简单：
隐藏MDIChild时：因为MDIChild不能用xform.visilbe:=false；我用的方法是:xform.FormStyle:=fsNormal;
xform.Visible:=false;
显示时：xform.FormStyle:=fsMdichild;
xform.WindowState:=wsNormal;
你可以试一试这样很简单
隐藏MDIChild时：因为MDIChild不能用xform.visilbe:=false；我用的方法是:xform.FormStyle:=fsNormal;
xform.Visible:=false;
显示时：xform.FormStyle:=fsMdichild;
xform.WindowState:=wsNormal;
你可以试一试这样很简单
insert2003 2004-11-01
- 打赏
- 举报
菜单-》Project-》Options-》Forms项，将子窗口移到右边
if not Assigned(Form2) then
Form2:=TForm2.Create(Application);
Form2.Show;
if not Assigned(Form2) then
Form2:=TForm2.Create(Application);
Form2.Show;
myheartzhang 2004-11-01
- 打赏
- 举报
procedure TFrmSendFiles.N2Click(Sender: TObject);
var
frmDeptForSel: TfrmDeptForSel;
begin
frmDeptForSel := TfrmDeptForSel.Create(self);
try
if frmDeptForSel.showModal = mrOK then
begin
GetDeptNames(Memo1.Lines);
end;
finally
frmDeptForSel.free;
end;
end;
var
frmDeptForSel: TfrmDeptForSel;
begin
frmDeptForSel := TfrmDeptForSel.Create(self);
try
if frmDeptForSel.showModal = mrOK then
begin
GetDeptNames(Memo1.Lines);
end;
finally
frmDeptForSel.free;
end;
end;
才子鸣 2004-10-31
- 打赏
- 举报
show()
hsmserver 2004-10-31
- 打赏
- 举报
直接SHOW就可以了
zzzl 2004-10-31
- 打赏
- 举报
show()
涩色滴人 2004-10-31
- 打赏
- 举报
如果没有create，你就要先create了，反之就只要show了。
