Hallo,
hier hab ich den quellcode, wenn eine nachricht eingeht:
Delphi-Quellcode:
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
text:=Socket.ReceiveText;
Memo1.Lines.Add(text);
if minimised=1 then
CoolTrayIcon1.ShowBalloonHint('Status:','Nachricht erhalten',bitInfo,timeout);
Delay(750);
CoolTrayIcon1.HideBalloonHint;
end;