L
lcl800
Unregistered / Unconfirmed
GUEST, unregistred user!
多窗口问题
1 现有若干窗体，需要用菜单调用，每次调用时，
不显示子窗体的标题栏。应该如何操作？
2 当调用其他窗体时，当前窗体怎样自动关闭？(关键问题）
3 系统菜单与普通菜单有什么区别？
我用的是SDI
我的问题是：当用菜单调用之后，A窗体显示;随后调用B窗体，这都正常。
但如果再调用A窗体，由于B窗体在A窗体之前，故A窗体不能显示出来。
所以必须关闭显示的非当前窗体.
效果类似于在VF中的窗体调用。
按照Another_eYes的建议，我写了下列两个调用程序：
procedure Tmain.FormCreate(Sender: TObject);
begin
main.Parent:=w_main;
end;
procedure Tw_main.N1Click(Sender: TObject);
begin
w_main.Show;
w_main.BringToFront;
end;
procedure Tw_main.N2Click(Sender: TObject);
begin
main.Show;
main.BringToFront;
end;
开始显示w_main
然后现实main
但却不能再显示w_main
1 现有若干窗体，需要用菜单调用，每次调用时，
不显示子窗体的标题栏。应该如何操作？
2 当调用其他窗体时，当前窗体怎样自动关闭？(关键问题）
3 系统菜单与普通菜单有什么区别？
我用的是SDI
我的问题是：当用菜单调用之后，A窗体显示;随后调用B窗体，这都正常。
但如果再调用A窗体，由于B窗体在A窗体之前，故A窗体不能显示出来。
所以必须关闭显示的非当前窗体.
效果类似于在VF中的窗体调用。
按照Another_eYes的建议，我写了下列两个调用程序：
procedure Tmain.FormCreate(Sender: TObject);
begin
main.Parent:=w_main;
end;
procedure Tw_main.N1Click(Sender: TObject);
begin
w_main.Show;
w_main.BringToFront;
end;
procedure Tw_main.N2Click(Sender: TObject);
begin
main.Show;
main.BringToFront;
end;
开始显示w_main
然后现实main
但却不能再显示w_main