Tab, Enter

[Guest Rosane]

Preciso de uma componente ou rotina para trocar a tecla tab pela enter em toda a aplicação, ou em todo form.

Agradeço desde já a ajuda.

[felipe]

procedure TF_Padrao.FormKeyPress(Sender: TObject; var Key: Char);

begin

if Key = #13 then

if not (ActiveControl is TDBGrid) then

begin

Key := #0;

Perform(WM_NEXTDLGCTL, 0, 0);

end

else if (ActiveControl is TDBGrid) then

with TDBGrid(ActiveControl) do

if selectedindex < (fieldcount -1) then

selectedindex := selectedindex +1

else

selectedindex := 0;

end;

Ou então, pode-se tentar o seguinte método:

Utilize o evento onkeydown do componente e insira o seguinte comando:

if Key = VK_RETURN then Perform(Wm_NextDlgCtl,0,0);

este comando testa a tecla pressionada, se ela for um enter, manda o foco para o componente posterior.

;)

[felipe]

OU tente assim:

Uses

Grids

procedure TfrmPri.MudarComEnter(var Msg: TMsg; var Handled: Boolean);

begin

If not ((Screen.ActiveControl is TCustomMemo) or

(Screen.ActiveControl is TCustomGrid) or

(Screen.ActiveForm.ClassName = 'TMessageForm')) then

begin

If Msg.message = WM_KEYDOWN then

begin

Case Msg.wParam of

VK_RETURN,VK_DOWN : Screen.ActiveForm.Perform(WM_NextDlgCtl,0,0);

VK_UP : Screen.ActiveForm.Perform(WM_NextDlgCtl,1,0);

end;

end;

end;

end;

no evento OnCreate o Form Principal digite a seguinte linha

Application.OnMessage := MudarComEnter; ;)

[Novato]

Quando eu coloco o codigo ele da um erro aki..

if Key = #13 then

if not (ActiveControl is TDBGrid) then

alguém pode me explicar o q é? eu deveria troca ali por edit1?

[railander]

Rosane, no próprio Script Brasil.com há este componente, ná pagina inicial do site, na seção scripts, clique em Delphi e começe a procurar, mas você pode demorar a chá-lo um pouco, mas vai avhar, pois eu o baixei deste site também.