Não consigo trocar TAB/ENTER
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
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
Curtidas 0
Respostas
Marcio.theis
30/03/2004
if (Key = Chr(VK_RETURN)) AND (Self.ActiveControl IS TEdit) then
Perform( WM_NEXTDLGCTL, 0, 0);
Perform( WM_NEXTDLGCTL, 0, 0);
GOSTEI 0
Rômulo Barros
30/03/2004
if key=#13 then
key := CodigoQueRepresentaATeclaTAB;
key := CodigoQueRepresentaATeclaTAB;
GOSTEI 0
Godzilla_xf
30/03/2004
[b:1e201df596]Ja Tentou colocar no form a propriedade KeyPreview para ´ true ´.[/b:1e201df596]
GOSTEI 0
Ronylee
30/03/2004
Obrigado a todos mas o que faltava mesmo era justamente o que o GodZilla_XF disse. o Preview = True;
Obrigado mesmo.
Rony Lee
Obrigado mesmo.
Rony Lee
GOSTEI 0