Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

how to stop the enter from belling people

tijoentijoen Posts: 141Member
heres the code


procedure TForm1.txtComandoKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = Vk_Return then
BEGIN
socket.Socket.SendText(txtcomando.Text+lf);
key := 0;
txtcomando.SelectAll;
exit;
END;
end;


when you hit enter, you hear a bell right?
i would like to stop it...

thanks

Comments

  • adibicheaadibichea Posts: 46Member
    i don't know how to stop bell from TEdit Class, but you can use TMemo.

    Memo1.WantReturns := False;

    and you can use this procedure

    procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
    begin
    if key=$0D then begin
    caption := memo1.Text;
    end;
    end;


Sign In or Register to comment.