关于子窗口的问题(50分)

  • 主题发起人 主题发起人 郭剑南
  • 开始时间 开始时间

郭剑南

Unregistered / Unconfirmed
GUEST, unregistred user!
我建立了一个父窗体,它含两个子窗口,用了application.form来建立子窗口,请问一下在子窗体用父窗体的菜单建立以后,怎么来获得子窗口建立的消息,
从而在下一次按下该菜单时,激活该窗口,而不是重新再建立一个窗口.
各位如果能给我小程序来说明一下就更好了,谢谢!!
 
function CheckForm(_FormName: string): boolean;
var
i: integer;
begin
Result := false;
with Application.MainForm do
begin
for i := 0 to MDIChildCount - 1 do
begin
if UpperCase(MDIChildren.Name) = UpperCase(_FormName) then
begin
MDIChildren.WindowState := wsNormal;
MDIChildren.Show;
Result := true;
end;
end;
end;
end;
 
接受答案了.
 
后退
顶部