Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
deivis

Netscroll No Dbgrid,

Question

Utilizo o delphi 6 e gostaria de saber se é possível rolar todo o dbgrid utilizando o net scrool do mouse, pois eu tentei aqui e ele rola somente os dados que são visíveis da primeira vez que o dbgrid é aberto.

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Já resolveram o meu problema no ForumWeb:

Colocar um ApplicationEvents e no evento OnMessage:

var
i: SmallInt;
begin
  if ( Msg.message = WM_MOUSEWHEEL ) then
  begin
    if ( ( Screen.ActiveForm.ActiveControl <> nil ) and
    ( Screen.ActiveForm.ActiveControl.ClassName = 'TDBGrid' ) ) 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;

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148480
    • Total Posts
      644135
×
×
  • Create New...