Chat - Nachricht mit ENTER senden

[hincapie]

Ein kleines Beispiel aus einem Chat mit den Indys:

Delphi-Quellcode:

procedure TForm1.edMessageKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    begin
      IdTCPClient1.WriteInteger(1);
      IdTCPClient1.WriteLn(edMessage.Text);
      edMessage.Text := '';
      edMessage.SetFocus;
    end;
end;

edMessage ist das TEditFeld, dessen Text versendet werden soll...