tab por enter

Question

gente � o seguinte, preciso mudar o tab por enter, mas n�o quero fazer isso em todo evento, gostaria de mudar em uma parte global do projeto e ser assumido por todo ele!!!...

Paullsoftware · Answer

[code:1:0bdf472b6e]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;[/code:1:0bdf472b6e]no OnCreate do Form Principal coloque:::[code:1:0bdf472b6e]Application.OnMessage := MudarComEnter;[/code:1:0bdf472b6e]no form ou no componente que vc n�o quer que o Enter funcione como tab mude a propriedade KeyPreviw = False, quando quiser novamente mude KeyPreviw = True.eu fa�o assim  :wink:...

Marco Salles · Answer

existe varias maneiraseu costumo fazer assim :No evento onKeyDow do componente que eu quero trocar Enter por Tab eu fa�o assim:[code:1:ad8096456f]procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);beginif key=Vk_Return then    Perform(Wm_NextDlgCtl, 0, 0);end;[/code:1:ad8096456f]...

Henrique Rodrigues · Answer

tentei usar a dica do PaullSoftware mas nem deu certo.onde coloco a primeira instru��o?erro que tive: [Error] Unit_Index.pas(111): Incompatible types: �method pointer and regular procedure�...

F�rum tab por enter #289740