怎样让非主窗体显示在任务栏(50分)

W

wengabc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #1

在foxmail中，显示邮件接收状态的窗体能够独立显示在任务中，我设计的程序中，
非主窗体从不独立显示在任务中，只显示一个主窗体，请问如何才能象foxmail一样？

 

P

pcexplorer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #2

重载窗口的CreateParams
procedure CreateParams(var Params:TCreateParams);override;
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle:=WS_EX_APPWINDOW;
end;
//轻松搞定

 

W

wengabc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #3

pcexplorer,你真厉害，还有一个问题请教，愿给你加积分50。我想让报表窗体显示在任务栏，报表窗体在程序启动时自动创建，执行报表是
这样的form3.quickrep1.preview;该怎样做？

 

J

jiangxiancheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #4

自己做一个预览窗体。

 

P

pcexplorer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #5

//只要得到窗口句柄就可以，但问题是我如何得到窗口句柄
//如下:只要得到窗口句柄
var
H:integer;
begin
H:=FindWindow(nil,'Print Preview');
SetWindowLong(H,GWL_EXSTYLE,WS_EX_APPWINDOW);
end;

 

W

wengabc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-20

• #6

pcexplorer：
你下面的代码我不明白怎么用，是让报表窗休显示在任务栏吗？
我是在preview加之前入的，但不行，请赐教，谢谢您！
只要得到窗口句柄就可以，但问题是我如何得到窗口句柄
//如下:只要得到窗口句柄
var
H:integer;
begin
H:=FindWindow(nil,'Print Preview');
SetWindowLong(H,GWL_EXSTYLE,WS_EX_APPWINDOW);
end;

 

Z

zcq11

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-21

• #7

调用createparmas时，需要什么样的参数

 

P

pcexplorer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-21

• #8

看Override;//他是重载，不需要你调用
Form1=Class(TForm1)
procedure CreateParams(var Params:TCreateParams);override;
private
public
end;