只允许建立一次子窗体的MDI程序

发表日期：2006-2-4

procedure OpenChildForm(FormClass: TFormClass; var Fm; AOwner:TComponent);
var
I: Integer;
Child: TForm;
begin
for I := 0 to Screen.FormCount - 1 do
    if Screen.Forms[I].ClassType = FormClass then
    begin
      Child := Screen.Forms[I];
      if Child.WindowState = wsMinimized then
        ShowWindow(Child.Handle, SW_SHOWNORMAL)
      else
        ShowWindow(Child.handle,SW_SHOWNA);
      if (not Child.Visible) then Child.Visible := True;
        Child.BringToFront;
        Child.Setfocus;
        TForm(Fm) := Child;
        Exit;
    end;
Child := TForm(FormClass.NewInstance);
TForm(Fm) := Child;
Child.Create(AOwner);
end;

购买网站空间(支持ASP/.NET/PHP)：送域名、送邮箱、更送1G U盘

上一篇：Command模式人气:3155
下一篇：金额大写转换人气:5703

浏览全部Delphi的内容 Dreamweaver插件下载网页广告代码祝你圣诞节快乐 2009年新年快乐