MDI

Question

怎么让一个已经打开的MDI字窗体激动在窗体前面.

Answer 1

给你一个：
procedure TfrmMain.OpenForm(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;
调用它打开子窗体即可

Answer 2

if not Assigned(Fm_XkrkQr) then begin
    Application.CreateForm(TFm_XkrkQr, Fm_XkrkQr);
    self.BLW_ListWindow.Items.AddObject('新卡确认',Fm_XkrkQr);
  end else begin
    Fm_XkrkQr.Show;
    Fm_XkrkQr.WindowState:=wsNormal;
    Fm_XkrkQr.BringToFront;
  end;

Answer 3

Sorry,这行不要
self.BLW_ListWindow.Items.AddObject('新卡确认',Fm_XkrkQr);