Porque este comando esta emitindo um Bip, como acabar com is

Question

Eu estou usando este comando para que pule de linha ao teclar o enter, mas toda vez fica emitindo um bip e eu to pra ficar louco com esse bip com eu tiro o bip? h�! mais uma coisa, como eu fa�o para q...

Thoor Cobain · Answer

Tente assim:if Key = VK_RETURN then Perform(Wm_NextDlgCtl,0,0);...

Adilsond · Answer

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);begin  if key = #13 then     begin       Key := 0;       Perform(WM_NEXTDLGCTL,0,0);     end;end;...

Marcelo Saviski · Answer

sobre a 2� d�vidano onKeyPress do Edit:if Length(Edit1.Text) > Edit1.MaxLength then perform(...ouif Length(TEdit(Self).Text) > TEdit(Sender).MaxLength  then perform(...Mude a propriedade maxLength do edit para o tamanho maximo desejado...

Machado · Answer

[quote:7ebc2c7dab=�Marcelo Saviski�]sobre a 2� d�vida

no onKeyPress do Edit:

if Length(Edit1.Text) > Edit1.MaxLength then perform(...

ou

if Length(TEdit(Self).Text) > TEdit(Sender).MaxLength then perform(...

Mude a propriedade maxLength do edit para o tamanho maximo desejado[/quote:7ebc2c7dab]

Eu coloquei nas mesmas formas acima e n�o cunfionou o primeiro exemplo n�o acontece nada e o segundo quando digitado qualquer letra ele ja pula detalhe eu acrescentei na final do codigo o seguinte (WM_NEXTDLGCTL,0,0);.

Marcelo Saviski · Answer

� que isso ali n�o � o codigo completo, tinha que substituir os �...� pelo c�digo que simula um Tab...

F�rum Porque este comando esta emitindo um Bip, como acabar com is #189659