我是通过这段代码控制不给显示多个同样的子窗体的.代码如下:
if not assigned(frm_test) then
begin
frm_test:=tfrm_test.Create(application);
frm_test.Show;
end
else
begin
DefMDIChildProc(frm_test.Handle, WM_SETFOCUS, 0, 0);
end;----------------------------------------
当这个窗体存在时就把这个窗体设成活动窗体显示的最前面,因为我们的的子窗体一创建就是最大化的.
以上代码无法实现设置MDI活动子窗体功能......在线等侍.....
if not assigned(frm_test) then
begin
frm_test:=tfrm_test.Create(application);
frm_test.Show;
end
else
begin
DefMDIChildProc(frm_test.Handle, WM_SETFOCUS, 0, 0);
end;----------------------------------------
当这个窗体存在时就把这个窗体设成活动窗体显示的最前面,因为我们的的子窗体一创建就是最大化的.
以上代码无法实现设置MDI活动子窗体功能......在线等侍.....
frm_test.Show;
试试!
frm_test.Show;
可行的试试看
begin
FrmGeiTest:=TFrmGeiTest.Create(self);
FrmGeiTest.WindowState:=wsMaximized;
FrmGeiTest.Show();
end
else
begin
FrmGeiTest.BringToFront;
FrmGeiTest.WindowState:=wsMaximized;
FrmGeiTest.SetFocus;
end;