Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) usar rolete do mouse no DBGrid


vms

Pergunta

uso este codigo para usar o rolete do mouse nos componentes

mas o problema pra mim e que ele move todos (não de uma vez)

tenho algumas tabelas relacionadas no meu projeto (usando o lookup)

as vezes por falta de atenção uso o rolete do mouse com o foco sobre o lookup

e acaba alterando valores no Grid

existe uma forma de usar o rolete do mouse apenas no dbgrid?

isira um componente ApplicationEvents

procedure TFRelatorio.ApplicationEvents1Message(var Msg: tagMSG;

var Handled: Boolean);

var

i: SmallInt;

begin

if Msg.message = WM_MOUSEWHEEL then

begin

Msg.message := WM_KEYDOWN;

Msg.lParam := 0;

i := HiWord(Msg.wParam) ;

if i > 0 then

Msg.wParam := VK_UP

else

Msg.wParam := VK_DOWN;

Handled := False;

end;

end;

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
existe uma forma de usar o rolete do mouse apenas no dbgrid?

existe sim... é só modificar o codigo desta maneira

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var
i: SmallInt;
begin
if (ActiveControl is TDBGrid) then
   with TDBGrid(ActiveControl) do
   begin
   if Msg.message = WM_MOUSEWHEEL then
      begin
         Msg.message := WM_KEYDOWN;
         Msg.lParam := 0;
         i := HiWord(Msg.wParam);
         if i > 0 then
            Msg.wParam := VK_UP
         else
            Msg.wParam := VK_DOWN;
      Handled := False;
      end;
    end;
end;

abraço

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...