Wenn ich das richtig sehe möchtest du, das vor dem Anzeigen der Nachricht geprüft wird, ob sie von einem Benutzer kommt, der in der Ignorieren-Liste steht. In meinem MiniChat hab ich das so gemacht(auf deinen Code angepasst):
Delphi-Quellcode:
procedure TForm1.TcpServer1Accept(sender: TObject;
ClientSocket: TCustomIpClient);
var
s: string;
nick: string;
DataThread: TClientDataThread;
i: integer;
begin
for i := 0 to form10.listbox1.items.count - 1 do
begin
if form10.listbox1.item[i] = clientsocket.remotehost then exit;
end;
...
Da ich selbst Anfänger bin, kann es sein das es auch eine einfachere Lösung gibt, aber es funktioniert.
mfg Sko