首页 相关文章 只允许建立一次子窗体的MDI程序

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

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;...[ 查看全文 ]

2016-02-19 标签:

只允许建立一次子窗体的MDI程序的相关文章

手机页面
收藏网站 回到头部