我的应用程序已经退出了。可屏幕下放仍有一个小方块,这是怎么回事? 我的应用程序已经退出了。可屏幕下放仍有一个小方块,这是怎么回事? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 某些程序退出后会在任务栏中留下一个任务空格,点一下方会消失。如何处理? 看下面的空窗体就会有这个问题: 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 = 13end 究其原因,就是因为窗体的 WindowState = wsMaximized,而且 BorderIcons 中没有 biMaximize 属性。为此可以有下解决办法:procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin Form1.BorderIcons := Form1.BorderIcons + [biMaximize];end;放在 OnCloseQuery 事件中是因为它能够在关闭之前执行,它比 OnClose 事件先执行,效果理论上比之好。 能通过ADOQUERY的SESSION NAME 连接SESSION吗? 在windows2000中如何模拟输入用户名、密码来访问网络邻居?(100分) 如何使编译文件大小最小,非常有经验的高手请进来谈谈你的做法! 如何写DELPHI一个数据库程序的安装程序 今天升三角,高兴!现散分100,限20人人够结贴. 我要下载delphi7,请给个下载网址,在线等待,立即给分. delphi 数据库高手请进 用delphi操作excel 一个图像处理的问题 欲哭无泪啊!!!!!!!!!!11 打开位图 为什么delphi6老是自动退出
如何处理?
看下面的空窗体就会有这个问题: 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 事件先执行,效果理论上比之好。