一个关于 CreateParams 的很简单的问题。嘿嘿

小弟要制作一个右下角弹出窗口。网上找了一段码。前面看明白了。后面就不懂了。麻烦各位高手解释下
type
  Tdgks = class(TForm)
    Shape1: TShape;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure CreateParams(var Params: TCreateParams); override;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  dgks: Tdgks;implementation{$R *.dfm}procedure Tdgks.FormCreate(Sender: TObject);
begin
  SetWindowLong(Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
  SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
  Tag := Height;
  Height := 16;
  Top := Screen.Height - 48;
  Left := Screen.Width - Width - 5;
  Show;
  while Height < Tag do begin
    Height := Height + 5;
    Top := Top - 5;
    Update;
    Application.ProcessMessages;
    Sleep(10);
  end;
  Height := Tag;
  Tag := 0;
end;//问题就在这里，下面这段是什么意思，请高手们解释下
procedure Tdgks.CreateParams(var Params: TCreateParams);
begin
  inherited;
  with Params do WndParent := 0;
end;end.