Fórum TAB por ENTER #153733
10/04/2003
0
Como fazer que o enter funcione como tab ?, já tentei várias dicas e não obtive sucesso.
Chistianlino
Curtir tópico
+ 0
Responder
Posts
10/04/2003
Dor_poa
procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then begin
Key := 0;
PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
end;
end;
não esqueça de trocar o keypreview do form para true...
begin
if Key = #13 then begin
Key := 0;
PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
end;
end;
não esqueça de trocar o keypreview do form para true...
Responder
Gostei + 0
10/04/2003
Aroldo Zanela
Cristian,
Conforme foi mencionado pelo Daniel, não esqueça de alterar a propriedade [b:cb407ea497]KeyPreview do form para true[/b:cb407ea497].
O código abaixo faz o mesmo:
Conforme foi mencionado pelo Daniel, não esqueça de alterar a propriedade [b:cb407ea497]KeyPreview do form para true[/b:cb407ea497].
O código abaixo faz o mesmo:
FormKeyPress(Sender: TObject; var Key: Char);
begin
if Ord(Key) = VK_RETURN then
begin
Perform(WM_NEXTDLGCTL, 0, 0);
end;
end;
Responder
Gostei + 0
10/04/2003
Aroldo Zanela
Cristian,
Conforme foi mencionado pelo Daniel, não esqueça de alterar a propriedade [b:d067fa5977]KeyPreview do form para true[/b:d067fa5977].
O código abaixo faz o mesmo:
Conforme foi mencionado pelo Daniel, não esqueça de alterar a propriedade [b:d067fa5977]KeyPreview do form para true[/b:d067fa5977].
O código abaixo faz o mesmo:
FormKeyPress(Sender: TObject; var Key: Char);
begin
if Ord(Key) = VK_RETURN then
Perform(WM_NEXTDLGCTL, 0, 0);
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)