Wenn du mit Server- und ClientSocket arbeitest, dann kannst du folgendes verwenden:
Delphi-Quellcode:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
i: Integer;
begin
//Socket ist das Socket des aktuellen Clients
//ActiveConnections ist die Anzahl laufender Verbindungen
//Connections enthält alle Sockets der offenen Verbindungen
for i := 1 to ServerSocket1.Socket.ActiveConnections do
begin
//Wir gehen alle Sockets durch, falls wir das richtige gefunden haben, setzen wir die Farbe
if Socket.Handle = ServerSocket1.Socket.Connections[i-1].Handle then
begin
RichEdit1.SelAttributes.Color := Farben[i];
break;
end;
end;
end;
Falls du es so wie in deiner Grafik machen willst, musst du vorher noch nach bestimmten Kommandos überprüfen, und für die speziellen Meldungen (Angemeldet, Abgemeldet) andere Farben verwenden.