Enter com funcao de tab
28/04/2003
0
Quando nós apertamos ´tab´ o foco do teclado muda. COmo eu faco para o enter ter essas funcao igual ao do tab?
Neoramza
Curtir tópico
+ 0
Responder
Posts
28/04/2003
Dedi
ai vai
procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then begin
Key := 0;
PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
end;
end;
no form mude keypreview para true
procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then begin
Key := 0;
PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
end;
end;
no form mude keypreview para true
Responder
Clique aqui para fazer login e interagir na Comunidade :)