TAB por ENTER
Como fazer que o enter funcione como tab ?, já tentei várias dicas e não obtive sucesso.
Chistianlino
Curtidas 0
Respostas
Dor_poa
10/04/2003
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...
GOSTEI 0
Aroldo Zanela
10/04/2003
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;
GOSTEI 0
Aroldo Zanela
10/04/2003
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;
GOSTEI 0