Fórum Não consigo trocar TAB/ENTER #223413

30/03/2004

0

Delphi

Por favor me ajudem pois já peguei vários exemplos para permitir que avance campos em um formulário usando o Enter, mas não consigo.

No evento OnKeyPress do meu form coloquei:
procedure TF_Sindmt02.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := 0;
SendMessage(Self.Handle, Wm_NextDlgCtl,0,0);
end;
end;

O que estou fazendo de errado???

Desde já agradeço qualquer ajuda.

Rony Lee


Ronylee

Ronylee

Responder

Posts

30/03/2004

Marcio.theis

if (Key = Chr(VK_RETURN)) AND (Self.ActiveControl IS TEdit) then
Perform( WM_NEXTDLGCTL, 0, 0);


Responder

Gostei + 0

30/03/2004

Rômulo Barros

if key=#13 then
key := CodigoQueRepresentaATeclaTAB;


Responder

Gostei + 0

30/03/2004

Godzilla_xf

[b:1e201df596]Ja Tentou colocar no form a propriedade KeyPreview para ´ true ´.[/b:1e201df596]


Responder

Gostei + 0

30/03/2004

Ronylee

Obrigado a todos mas o que faltava mesmo era justamente o que o GodZilla_XF disse. o Preview = True;

Obrigado mesmo.

Rony Lee


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar