请问高手如何判断TServerSocket是否接收到TClientSocket的消息，如果接到消息如何做成托盘上像QQ那样，有一个图标在闪动，当双击这闪动的图标

  • 主题发起人 主题发起人 guolei0451
  • 开始时间 开始时间
G

guolei0451

Unregistered / Unconfirmed
GUEST, unregistred user!
请问高手如何判断TServerSocket是否接收到TClientSocket的消息，如果接到消息如何做成托盘上像QQ那样，有一个图标在闪动，当双击这闪动的图标显示出来TClientSocket发过来的字符串，急用，谢谢。 ( 积分: 100 )<br />我用TClientSocket和TServerSocket设计一网络通讯程序。我能用TServerSocket接收到TClientSocket发过来的字符串，并弹出一个窗口显示出来，但请问如何在TServerSocket判断是否有消息发过来，如果有消息过来在托盘上像QQ那样，有 一个图标在闪动，当双击这闪动的图标显示出来TClientSocket发过来的字符串，急用，谢谢。

解答出来后，再赠50分，小弟分不多了，
 
我用TClientSocket和TServerSocket设计一网络通讯程序。我能用TServerSocket接收到TClientSocket发过来的字符串，并弹出一个窗口显示出来，但请问如何在TServerSocket判断是否有消息发过来，如果有消息过来在托盘上像QQ那样，有 一个图标在闪动，当双击这闪动的图标显示出来TClientSocket发过来的字符串，急用，谢谢。

解答出来后，再赠50分，小弟分不多了，
 
在Client的Read中处理。找一个Tray的组件，支持多Icon的，联上ImageList1，在ImageList1里添加多个ICon ,当有消息时，把Tray滚动显示Icon就可以了。
 
tray的组件是什么，在哪里，谢谢，
 
可以到 www.2ccc.com 下载Raiz组件包，里有Tray组件
 
能不能在程序里写代码完成
 
可以
 
给点代码
 
。。。。。
 
图标闪动很容易实现，但是每次闪动对应哪次的信息，并能通过点击调出对应信息，然后释放，有点难度。可能要用线称，一个线称对应一次图表闪动，我晚上动手看看是否可行。
 
好的，谢谢
 
可以在自己在代码中设置一个定时器
在定时器事件处理代码中切换图标
可以使用Notify函数来操作系统托盘图标
 
如何在定时器事件处理代码中切换图标
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ImageList1.GetIcon(Index, Application.Icon);
Inc(Index);
if Index >= ImageList1.Count then
Index := 0;
end;
 
如何让一个图标在闪，谢谢
 
搞一个全透明的图标在ImageList1 里面，然后不然切换你要的图标和这个透明的图标！
 
您必须登录或注册才可回复。

Similar threads

D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
2K
DelphiTeacher的专栏
D
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
2K
DelphiTeacher的专栏
D
D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部