Displaying the child windows of an applicatin in the taskbar on minimizing

hello experts,

I am developing a chat application where the
messages from each of the online members will
be displayed in the window specific to the
member. On getting a new message to a
particular window I want to display that
particular window in the taskbar with the window state 'wsMinimized'.Since these windows are the
child windows of the application,it can't be
displayed in the task bar as minimized instead
it will appear above the taskbar as minimized.

Can you help me with some source code?..
mrk_rajAsked:
Who is Participating?
 
geobulConnect With a Mentor Commented:
Hi,
Define your child forms this way:

type
  TForm2 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure CreateParams(var Params:TCreateParams); override;
  end;

var
  Form2: TForm2;

implementation

{$R *.DFM}

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


When you are showing that form do:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.WindowState := wsMinimized;
  Form2.Visible := true;
end;

Regards, Geo
0
 
geobulCommented:
Hi,
Is there something wrong with my proposal to award it using 'B' option? It was fast and complete, I think.

Regards, Geo
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.