各位高手：如何解决程序运行结束后在Windows系统任务栏上留下空白标题栏按钮的问题？

Question

这个好象是操作系统的bug吧？

Answer 1

windows 的屏保好象也有此问题。

Answer 2

应该是在程序退出之前，把主窗体的Windowstate和borderstyle改为正常的即可！

Answer 3

因为窗体的 WindowState = wsMaximized，而且 BorderIcons 中没有 biMaximize 属性。为此可以有下解决办法：procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Form1.BorderIcons := Form1.BorderIcons + [biMaximize];
end;

Answer 4

大家的方法我试过了，没有用，运行一次出来一个。
在设计时我仅把borderStyle设为bsNone，在程序运行时把top、left、width、height设为最大值而已，只是为了在整个屏幕显示。
我查了一下整个论坛，同样的问题还不少，难道就没有一个解决的办法了吗？例如有没有别的办法使得程序以全屏幕方式显示，或者干脆让任务栏不显示。另外，我在IE5.5下运行似乎没有问题。

Answer 5

试一试这种方法：
1、procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     form1.BorderStyle:=bsSizeable;
end;
2、你在关闭窗体时一定先用Close方法关闭窗体。

Answer 6

是否可以这样
设置WindowState最大
Position为poDefault
BorderStyle:bsNone
运行时不要调整位置如像top=Screen.ClientLeft等语句
关闭时设置BorderStyle为bsSizeable即可
我试过行

Answer 7

在onshow中加入:
  ShowWindow(Application.Handle, SW_HIDE); //隐藏任务栏上的图标
试试吧,好用来个信[email protected]
http://www.sunhy.com

Answer 8

多谢各位的热心帮助。
我最终的解决办法——也是没有办法的办法——设置width=Screen.Width-1,Height=Screen.Height-1，什么毛病都没有了。但总感觉有点...再次感谢各位。