F�rum Enter em dois DBmemo? #405400

21/07/2011

Amigos,            Estou tentando fazer com que o ENTER funcione em 2 dbmemo, o c�digo abaixo funciona perfeitamente com 1 dbmemo, mas tenho 2 dbmemo um ao lado do outro, ent�o tentei adaptar o c�digo abaixo, s� que ao tentar acabei causando problema no primeiro.            Quem poderia ajudar? procedure TFrmCadTurDisc.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
    Case Key of
        VK_RETURN:
          begin
            If not DbMemo1.Focused then
               Perform(WM_NEXTDLGCTL,0,0);
          end;
    end; end;

Osmar

Curtir t�pico

+ 0

Responder

Posts

22/07/2011

Marco Salles

Mas qual o problema e quela o codigo que vc fez quando se refere a adaptar para que funcione nos dois memos?

Responder

Gostei + 0

22/07/2011

Eliel Martins

Ol� Osmar!

O que eu pude verificar no seu c�digo, � que voc� faz uma veirifica��o se o foco est� no DBMemo1 (If not DbMemo1.Focused then) ent�o quando o foco estiver no DBMemo1 o seu c�digo n�o vai funcionar, utilizando o seu mesmo c�digo voc� poderia fazer da seguinte maneira ?

procedure TFrmCadTurDisc.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
    Case Key of
        VK_RETURN:
          begin
            Perform(WM_NEXTDLGCTL,0,0);
          end;
    end;

end;

Osmar, agora tenho uma sugest�o para voc�, segue abaixo uma fun��o para a tecla [Enter] funcionar no lugar do [TAB], nesse exmplo abaixo o enter vai funcionar somente dentro do DBMemo para quebrar a linha do DBMemo, ele n�o vai funcionar dentro do DBMemo para passar o foco para o proximo DBMemo.

  if not ((Screen.ActiveControl is TCustomGrid)    or
            (Screen.ActiveControl is TCustomMemo) 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;

Osmar, agora se voc� deseja que a tecla [Enter] funcione para passar o foco de um DBMemo para o outro, voc� utiliza este c�digo logo abaixo.

  if not ((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;

No evento OnCreate do Form adicione o seguinte c�digo.

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := MudarComEnter;
end;

Espero ter ajudado.

Eliel G. Martins

Responder

Gostei + 0