为什么我的窗口不能隐藏(80分)

牛龙 · 1999-12-10

我要生成一个TRAY Icon的应用程序,可是主窗口老是没法隐藏.我是重载了 procedure TForm1.CreateParams(var Params:TCreateParams); begin   inherited CreateParams(Params);   Params.Style:=(Params.Style or WS_EX_TOOLWINDOW)and not WS_VISIBLE; end; 函数,但是老是没法隐藏它

cAkk · 1999-12-10

在*.dpr文件里加上这一句: application.showmainform:=false;

Fencer · 1999-12-10

cAkk怎么无处不在！又来晚了。

pwpengwei · 1999-12-10

同意cakk

Sunjiachen · 1999-12-10

cAkk说得对,这主要由于Form1为主窗体.

thtfsyh · 1999-12-10

kangxy · 1999-12-10

用cAKK的方法,任务栏中会出现一个应用程序图标,可以简单的隐藏它, 但是程序启动时会出现闪烁.可以用以下方法解决. 添加一个新单元: unit RunFirst; interface implemention initialization   IsLibrary := True; end. 然后改变.dpr uses   RunFirst in 'RunFirst.pas', //一定要在第一行   Forms,Windows,   ....   .... begin   Application.ShowMainForm ;= False;   IsLibrary := False; // 把IsLibrary设置回来   Application.CreateForm(....);   .....   Application.Run; end.

cAkk · 1999-12-10

>>任务栏中会出现一个应用程序图标 不会吧! 你搞错了吧?

www · 1999-12-10

>>kangxy 不用那么麻烦吧? 最简单的办法 procedure TForm1.FormShow(Sender: TObject); begin   showwindow(application.handle,sw_hide); end;

cAkk · 1999-12-10

>>任务栏中会出现一个应用程序图标 >>不会吧! 你搞错了吧? 我刚刚试验过了,确实没有你说的"应用程序图标",你是不是看错了?

www · 1999-12-10

to cAkk   >>任务栏中会出现一个应用程序图标 并不是指右下角的任务栏通知区域，而是任务栏按钮。

cAkk · 1999-12-10

确实没有牙!我说的就是toolbar上的按钮,确实没有牙! 我刚刚特意试验的. 我用的是win98+D4

www · 1999-12-10

关键就出在application.showmainform:=false; 我刚才忘了加上这一句，加上了任务栏按钮就不出现了。

kangxy · 1999-12-10

我已经说的很清楚了,是程序启动时"闪烁",机器快自然 不容易看出来.但影响程序的专业性.

cAkk · 1999-12-10

我也说得很清楚了: Application.ShowMainForm ;= False; 之后什么也不会出现在任务栏,也根本没什么所谓的"闪烁",恐怕是你的程序有问题吧?

kangxy · 1999-12-11

我又试了一下,w95+d3才有我说的问题.

))

baggiooo · 1999-12-12

一句: showwindow(application.handle,SW_HIDE); 重现时,一句: application.restore;

Wysywyg · 1999-12-12

这段代码让程序不在任务条中显示: procedure TForm1.FormCreate(Sender: TObject); begin   ShowWindow(Application.Handle, SW_HIDE);   SetWindowLong(Application.Handle, GWL_EXSTYLE,                 GetWindowLong(Application.Handle, GWL_EXSTYLE) or                 WS_EX_TOOLWINDOW );   ShowWindow( Application.Handle, SW_SHOW ); end;

牛龙 · 1999-12-13

多人接受答案了。

为什么我的窗口不能隐藏(80分)

牛龙

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

Fencer

Unregistered / Unconfirmed

pwpengwei

Unregistered / Unconfirmed

Sunjiachen

Unregistered / Unconfirmed

thtfsyh

Unregistered / Unconfirmed

kangxy

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

kangxy

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

kangxy

Unregistered / Unconfirmed

baggiooo

Unregistered / Unconfirmed

Wysywyg

Unregistered / Unconfirmed

牛龙

Unregistered / Unconfirmed

Similar threads