Tab/Enter em todos Forms

Question

Estou utilizando o seguinte c�digo para avan�ar campos com o ENTER:procedure TF_VslCli01.FormKeyPress(Sender: TObject; var Key: Char);begin  if Key = #13 then  begin    Key := 0;    SendMessage(Self.H...

Weverton · Answer

:arrow: Vc pode fazer de duas formas:1 - Criar um form, implementar esse c�digo no OnKeyPress e criar os outros forms herdando desse primeiro;2 - Colocar um componente ApplicationEvents no form principal da aplica��o e fazer o tratamento no evento OnMessage....

Ronylee · Answer

Weverton acho que a segunda op��o seria a mais adequada (mais profissional tamb�m), por�m n�o sei como fazer, pode me ajudar?...

Eniorm · Answer

No form principal crie este procedimento:

procedure TSimoFormPrincipal.ProcessaMsg(var Msg: TMsg;
  var Handler: Boolean);
begin
     if (Msg.message = WM_KEYDOWN) then
        if not (Screen.ActiveControl is TCustomMemo) and
           not (Screen.ActiveControl is TButtonControl) then begin
             if not (Screen.ActiveControl is TCustomControl) then begin
                if (Msg.wParam = VK_Down) and
                   not(Screen.ActiveControl is TListBox) and
                   not(Screen.ActiveControl is TComboBox) then
                   Msg.wParam:= VK_Tab;
                if (Msg.wParam = VK_UP) and
                   not(Screen.ActiveControl is TListBox) and
                   not(Screen.ActiveControl is TComboBox) then begin
                   Msg.wParam:= VK_CLEAR;
                   Screen.ActiveForm.Perform(WM_NextDlgCtl,1,0);
                end;
                if (Msg.wParam = VK_Escape) and
                  not (Screen.ActiveForm is TSimoformPrincipal) then
                   Screen.ActiveForm.Close;
             end;
             if (Msg.wParam = VK_Return) then
                Msg.wParam:= VK_Tab;
        end;
end;

Agora no OnCreate do form principal:

Application.OnMessage := ProcessaMsg;

F�rum Tab/Enter em todos Forms #227451