刚学delphi,n多不懂得地方现在在做一个程序,主界面设定为主窗口,一些功能设定为子窗口,通过主窗口的菜单项调用,现在想实现在调用部分功能的时候将主窗口隐藏,不知道如何实现?
部分代码如下:
procedure TForm2.N5Click(Sender: TObject);
var newform : TForm5;
i,flag : Integer;
begin
flag := 0;
for i := 0 to form2.MDIChildCount do
begin
if Form2.MDIChildren[i].Caption = '密码修改' then
begin
SendMessage(MDIChildren[i].Handle,WM_SYSCOMMAND,SC_RESTORE,0);
MDIChildren[i].Show;
flag := 1;
Break;
end;
end;
if flag = 0 then
begin
newform := TForm5.Create(Application);
newform.Caption := '密码修改';
end;
end;现在还有个问题是该密码修改子窗口不能释放后不能返回主窗口(已经将该子窗口close处action := cafree)
部分代码如下:
procedure TForm2.N5Click(Sender: TObject);
var newform : TForm5;
i,flag : Integer;
begin
flag := 0;
for i := 0 to form2.MDIChildCount do
begin
if Form2.MDIChildren[i].Caption = '密码修改' then
begin
SendMessage(MDIChildren[i].Handle,WM_SYSCOMMAND,SC_RESTORE,0);
MDIChildren[i].Show;
flag := 1;
Break;
end;
end;
if flag = 0 then
begin
newform := TForm5.Create(Application);
newform.Caption := '密码修改';
end;
end;现在还有个问题是该密码修改子窗口不能释放后不能返回主窗口(已经将该子窗口close处action := cafree)
楼上的能说详细些吗?例如给出些代码,感激不尽~
var
form2:tform;
begin
form2:=tform.Create(nil);
form2.Caption:='密码修改!';
form2.Position:=poScreenCenter;
form2.show;
form1.Hide;
end;