【结贴】RedrawWindowX3该如何写**

zfang

procedure TMainForm.Button3Click(Sender: TObject);
begin
  Perform(Borland.Delphi.Messages.WM_SETREDRAW,   1,   0);
  Borland.Delphi.Windows.RedrawWindow(Handle,   nil,   0,   Borland.Delphi.Windows.RDW_FRAME  +  Borland.Delphi.Windows.RDW_INVALIDATE   +    Borland.Delphi.Windows.RDW_ALLCHILDREN   +   Borland.Delphi.Windows.RDW_NOINTERNALPAINT);
end;
可以执行没有问题。