{******************************************************

       Trade-Ideas Alerts
       Base class of forms (windows) that have
       buttons on the Windows Taskbar

       Copyright (C) 2004 - 2009 Trade-Ideas LLC

******************************************************}
unit tiTaskbarVisibleForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TTaskbarVisibleForm = class(TForm)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

var
  TaskbarVisibleForm: TTaskbarVisibleForm;

implementation

uses tiUtilites;

{$R *.dfm}

procedure TTaskbarVisibleForm.CreateParams(var Params: TCreateParams);
var
  DisplayMode:Integer;
begin
  inherited CreateParams(Params);
// If display mode is set to Windows mode + system tray icon,
// override creation parameters so that window is shown in the Windows Taskbar
  DisplayMode := GetDisplayMode;
  If DisplayMode = 1 Then
    Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;

end.