http://bcoder.com/delphi/delphi-show-sub-window-on-the-taskbar
重载方法CreateParams
protected
/// <summary>
/// 重载此函数 打开界面的时候任务栏中显示小图标
/// </summary>
procedure CreateParams(var Params: TCreateParams); override;
procedure TFmUserLog.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;