服务器端出现许多托盆图标,咋办?(30分)

懒

懒少爷

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-29

• #1

服务器做成了一个托盆图标.
客户端退出它不自动删除,
启动一个客户端会增加一个图标.
鼠标移动到哪里他才消失.
咋办?
已经有如下语句:
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
shell_NotifyIcon(NIM_DELETE,@IconData);
application.ProcessMessages;
Action:=cafree;
end;

 

R

RichPan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-29

• #2

procedure FormClose(Sender: TObject;
var Action: TCloseAction);
var
nid: TNotifyIconData;
begin
nid.cbSize := sizeof(nid);
// nid变量的字节数
nid.uID := 0;
//内部标识，与加入小图标时的数一致
nid.Wnd := Handle;
//主窗口句柄
Shell_NotifyIcon(NIM_DELETE, @nid);
//去掉小图标
end;

 

懒

懒少爷

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-29

• #3

试过了 ,不行!
是不是根本不会触发FORM的CLOSE事件呢?

 

R

real_clq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-29

• #4

先在close事件中showmessage看看事件发生了没有。
没有就写在Destroy事件中。

 

懒

懒少爷

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-29

• #5

写在Destroy事件中!-----OK!