Delphi如何使子窗口显示在任务栏中

http://bcoder.com/delphi/delphi-show-sub-window-on-the-taskbar

重载方法CreateParams

  protected
    /// 

    /// 重载此函数  打开界面的时候任务栏中显示小图标
    /// 
    procedure CreateParams(var Params: TCreateParams); override;

procedure TFmUserLog.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;