如何做到每个窗体，在任务栏上都有一个按钮，可以独立控制的？就像 Foxmail 一样(100分)

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #1

如何做到每个窗体，在任务栏上都有一个按钮，可以独立控制的？

就像 Foxmail 一样。这个功能在 VB 可很好实现。

但在 Delphi 中。我试了很久，都不行呢

哪个大侠能告诉我如何办？

 

S

shunzi1220

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #2

procedure TForm2.FormCreate(Sender: TObject);
begin
SetWindowLong(Handle, GWL_EXSTYLE, WS_EX_APPWINDOW);
end;

 

轻

轻舞肥羊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #3

http://www.delphibbs.com/keylife/iblog_show.asp?xid=339

 

S

shunzi1220

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #4

再给你一个方法：
....
type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure CreateParams(var Params: TCreateParams); override;
end;
.....

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

 

I

iseek

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #5

呵呵,楼主这分出得,那个,有点冤.
这样的问题一搜一大把啊.

 

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #6

这个是显示出来了
但你把主窗体最小化了。那个窗体也不行了
我是想像 Foxmail 写邮件那个窗体一样，主窗体最小化了。那个窗体不会消失的

 

Y

yin623

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #7

獨立的exe

 

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #8

Foxmail 就只有一个 exe

 

网

网中戏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-17

• #9

前几天有人问过的。收一下

 

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-18

• #10

找到方法了.

Params.WndParent := GetDesktopWindow;

 

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-24

• #11

多人接受答案了。