用DELPHI 4.0创建SPLASH窗口的费解现象

[wader]

我遇到一个费解的现象。
一个简单的SPLASH DEMO程序的运行完全正常，但在我将其应用
到较复杂的实际程序时发生如下现象：

　　 splashform:=tsplashform.create(application);
　　 splashform.show;
　　 splashform.update;

　　 application.createform(tmainform,mainform);
　　 application.createform(tAboutform,Aboutform);
　　 splashform.close;

在application.createform(tmainform,mainform);执行完后，
在windows task bar 中出现了另一个程序“最小化图标”。在
程序正常退出后，该“最小化图标”并不消失，如果用鼠标去
点，则该图标才消失。该现象让人觉得很烦。
（备注：在WINDOWS中经常遇到其它程序也发生类似现象）

[Kingron]

我这儿有一篇文章，也许对你有帮助：
////////////////////////////////////////////////
某些程序退出后会在任务栏中留下一个任务空格，点一下方会消失。
如何处理？
看下面的空窗体就会有这个问题： 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 事件先执行，效果理论上比之好。
/////////////////////////////////////////////////

[wader]

方法无效。
后来我将splashform.create & close放到mainform.oncreate中，
便解决了此问题。
还是要感谢你。