Ton OnKeyPress

[City Light]

Delphi-Quellcode:

{mit....}

Key := #0;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
  begin
  if edit1.Text <> '' then
    begin
    memo1.Lines.Add('[' + Nick + '] ' + edit1.text);
    idirc1.Say('#chan', edit1.text);
    edit1.Text := '';
    end;
    Key := #0;
  end;
end;