程序退出任务栏空格问题解决

某些程序退出后会在任务栏中留下一个任务空格，点一下方会消失。

如何处理？

　

看下面的空窗体就会有这个问题： object Form1: TForm1

Left = 138

Top = 98

Width = 544

Height = 375

BorderIcons = [biSystemMenu, biMinimize]

Caption = 'Form1'

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = []

OldCreateOrder = False

WindowState = wsMaximized

PixelsPerInch = 96

TextHeight = 13

end

　

究其原因，就是因为窗体的 WindowState = wsMaximized，而且

BorderIcons 中没有 biMaximize 属性。为此可以有下解决办法：

procedure TForm1.FormCloseQuery(Sender: TObject; var

CanClose: Boolean);

begin

Form1.BorderIcons := Form1.BorderIcons + [biMaximize];

end;

放在 OnCloseQuery 事件中是因为它能够在关闭之前执行，它比

OnClose 事件先执行，效果理论上比之好。