Einzelnen Beitrag anzeigen

Benutzerbild von ghost007
ghost007

Registriert seit: 31. Okt 2005
Ort: München
1.024 Beiträge
 
Delphi 7 Personal
 
#3

Re: Chatprogramm maximiert sich automatisch bei nachriten ei

  Alt 25. Jan 2006, 22:55
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;
Christian
  Mit Zitat antworten Zitat