Schriftfarben in Multiuser-Chat

[alcaeus]

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.