delphi中子窗体通用打开函数

最新推荐文章于 2024-01-12 16:58:31 发布

weixin_34277853

最新推荐文章于 2024-01-12 16:58:31 发布

阅读量193

点赞数

原文链接：http://www.cnblogs.com/yagzh2000/archive/2013/03/19/2968873.html

版权

没有用MDI类型，是用setparent来设置子窗体的，在主窗体上放置一个panel2做为子窗体的父容器。Main为主窗体。子窗体中最好在关闭和ondestory中写上代码，在Onclose中写action:=cafree ,在ondestory中写上childfrm=nil;

如下代码：

procedure CreateChildFrm(AForm:TCustomForm;const AFormClass:TFormClass);
function isExist():boolean;
var
  i:integer;
begin
  result:=False;
  for i :=0 to Screen.FormCount-1 do
  begin
    if Screen.Forms[i].ClassType=AFormClass then
    begin
      Result:=True;
      AForm:=TForm(Screen.Forms[i]);
      Break;
    end;
  end;
end;

begin
  if not isExist() then
  begin
    AForm:=AFormClass.Create(Main);
    Winapi.Windows.SetParent(AForm.Handle,Main.Panel2.Handle);
  end else
  begin
    ShowWindow(AForm.Handle,SW_MAXIMIZE);
    AForm.BringToFront;
  end;
   AForm.Show;
end;