Enter Ao Inves De Tab

[Guest augustoacf]

bom, eu copiei a dica do modelador de como fazer o enter ficar igual ao tab sendo que esta dando um erro no TCustomMemo) e no TMessageForm, me informaram que tenho que acrescentar no uses outros arquivos, quais seriam?

muito obrigado

incluir na Uses do form principal: Grids

adicione essa procedure:

CODE

procedure TFrmPrincipal.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;

e no evento OnCreate o Form Principal digite a seguinte linha

CODE

Application.OnMessage := MudarComEnter;

[DELPHI-Man32]

Substituindo TAB pelo ENTER

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.

[DELPHI-Man32]

Enter funcionando como Tab em toda a aplicação

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;

[Guest augustoacf]

muito obrigado DELPHI-Man32

sendo que o que eu preciso e o que voce mostrou no 2 exemplo que e igual ao meu, porem da erro referente a

TCustomMemo) or 'TMessageForm'