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

Delphi

20/10/2003

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 que quanto for preenchido o total de caracteres especificado para o campo ele pule automaticamente para o proximo campo?

evento onkeydown
if key=13 then
perform(WM_NEXTDLGCTL,0,0);


Desde ja obrigado.


Machado

Machado

Curtidas 0

Respostas

Thoor Cobain

Thoor Cobain

20/10/2003

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


GOSTEI 0
Adilsond

Adilsond

20/10/2003

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


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

20/10/2003

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


GOSTEI 0
Machado

Machado

20/10/2003

[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);.


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

20/10/2003

é que isso ali não é o codigo completo, tinha que substituir os ´...´ pelo código que simula um Tab


GOSTEI 0
POSTAR