www.pudn.com > RxRichEdit2.0.rar > BaseForm.pas

{$D-} 
unit BaseForm; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Forms, Controls, Menus, ExtCtrls, 
  StdCtrls, Buttons, MyFormDivider; 
 
type 
  TFrmBase = class(TForm) 
    procedure FormCreate(Sender: TObject); 
    procedure FormShow(Sender: TObject); 
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
implementation 
 
{$R *.DFM} 
 
procedure TFrmBase.FormCreate(Sender: TObject); 
begin 
  Screen.Cursors[crHandPoint] := LoadCursor(0, IDC_HAND); 
  Screen.Cursors[crSQLWait] := LoadCursor(0, IDC_WAIT); 
end; 
 
procedure TFrmBase.FormShow(Sender: TObject); 
 
  procedure RefreshControl(Control:TControl);///可能包含子控件，也要刷新 
  var 
    i:integer; 
  begin 
    Control.Invalidate; 
    if Control is TWinControl then 
      for i:=0 to TWinControl(Control).ControlCount-1 do 
        RefreshControl(TWinControl(Control).Controls[i]); 
  end; 
 
begin 
  AnimateWindow(Handle, 200, AW_SLIDE + AW_CENTER); 
  RefreshControl(Self); 
  SetActiveWindow(Handle); 
end; 
 
procedure TFrmBase.FormCloseQuery(Sender: TObject; var CanClose: Boolean); 
begin 
  AnimateWindow(Handle, 200, AW_HIDE + AW_SLIDE + AW_CENTER); 
end; 
 
end.