如何解决MDI子窗体SHOW时最大化，窗体闪烁的问题？

Question

RT

Answer 1

闪烁的我没见到过。如果运行的时候要最大化可以设置windowstate属性为：wsmaximinzed
最小化为：wsminiminzed 要设置为你设计是的窗口大小为：wsnormal.

Answer 2

给你个函数,用于显示MDI的.
class procedure TUMDIForm.OpenMDIForm(FormClass: TFormClass; var frm;
  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_SHOWMAXIMIZED)
    else
       ShowWindow(Child.Handle, SW_SHOWNA);
    if (not Child.Visible) then Child.Visible := True;
    Child.BringToFront;
    Child.Setfocus;
    TForm(frm) := Child;
    Exit;
  end;
  Child := TForm(FormClass.NewInstance);
  TForm(frm) := Child;
  Child.Create(AOwner);
end;

Answer 3

就是在windowstate属性为：wsmaximinzed时，有一种由小变大的闪烁过程，挺明显的

Answer 4

你用的是 WinXP Win2K吧.系统本身就有设定,用掉就行了.