C/S数据库软件在98下退出后，任务栏中的图标不退出，用鼠标点一下才行，为什么？(50分)

  • 主题发起人 主题发起人 djf813
  • 开始时间 开始时间
D

djf813

Unregistered / Unconfirmed
GUEST, unregistred user!
我用的是DELPHI6.0+BDE或ADO+SQLSERVER2000编写的程序，在WIN2000中编译，
程序中我已经写入关闭所有打开的数据库控件如QUERY1或TABLE1，但是退出时仍无法
自动关闭任务栏图标，用鼠标点一下才行，或经过很长时间图标才消失，但会留下一个
空白的任务栏图标。
 
这是操作系统的问题，很多程序都会这样（MS自己的程序都会这样）。
 
//已经写入关闭所有打开的数据库控件如QUERY1或TABLE1
这和任务栏图标的关闭有什么联系？
 
但是我用DELPHI5.0编译出来就不会有此问题？
 
任务栏图标只和应用程序有关,与你所用到的query,table等没有任何关系
试着在程序退出的时候关闭图标
Shell_NotifyIcon(NIM_DELETE, @nid); //去掉小图标

 
delphi5下也会出现这种情况，我遇见过
 
我也碰到这样的问题，用很多方法都解决不了
 
to eric.youbin
问题解决不了。
 
我用Delphi5和6写的程序都有这个问题，愿听高手指教。
 
5也一样
up
 
我是这样解决的。在close之前加一句,application.最小化
 
to smallmoneybags
不行啊，有时管用，有时不管用。你有没有彻底的方法？
 
BorderIcons:=BorderIcons+[biMaximize];???
 
我不知道你用的什么方法加入任务栏中的图标的，建议你用这种方法，绝对行的！！

procedure TForm1.FormCreate(Sender: TObject);
var
nid: TNotifyIconData;
begin
nid.cbSize := sizeof(nid);
nid.Wnd := Handle;
nid.uID := 1;
nid.hIcon := Application.Icon.Handle;
nid.uCallbackMessage := MY_MESSAGE;
nid.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
if not Shell_NotifyIcon(NIM_ADD, @nid) then begin
ShowMessage('Failed!');
Application.Terminate;
end;

end;



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
nid: TNotifyIconData;
begin
nid.cbSize := sizeof(nid);
nid.uID := 1;
nid.Wnd := Handle;
Shell_NotifyIcon(NIM_DELETE, @nid); //去掉小图标

end;
 
对不起大家，可能我没写清楚，
我问的问题是：我的程序在关闭后，最小化图标仍然在任务栏上，
很长时间也不消失，只有用鼠标点一下才行。
我没有用自己加入任务栏中的图标，而是程序最小化时的图标。
现在我写的所有的程序在WIN98下都存在此问题，win2000没事。

 
to mr.hl
你的方法在98下不行。
 
您必须登录或注册才可回复。

Similar threads

S
[译]让Windows2003为Firebird数据库保留3050端口
回复
0
查看
828
SUNSTONE的Delphi笔记
S
S
[译]让Windows2003为Firebird数据库保留3050端口
回复
0
查看
760
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
程序退出任务栏空格问题解决
回复
0
查看
630
import
I
后退
顶部