Enter com funcao de tab
Quando nós apertamos ´tab´ o foco do teclado muda. COmo eu faco para o enter ter essas funcao igual ao do tab?
Neoramza
Curtidas 0
Respostas
Dedi
28/04/2003
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
GOSTEI 0