Fórum Scroll do mouse no DBgrid.. #292127
18/08/2005
0
Tem uma coisa curiosa no dbgrid que é no minimo esquisito e sem função...clicko em 1 registro e se usar o scrol do mouse fica uma seleção como se estivesse navegando pelo pelos os registros más os mesmos não se movem...tem como ficar continuo ? tipo rolei o scroll e os registros mudam tb...Valew..
Gigatel
Curtir tópico
+ 0
Responder
Posts
07/12/2005
Bico
Bom dia.
Tive este problema e consegui resolver da seguinte forma:
No seu Form principal declare a procedure a seguir:
A implementação desta procedure fica assim:
No evento OnCreate do Form coloque esta linha:
Atenciosamente,
Fernando.
Tive este problema e consegui resolver da seguinte forma:
No seu Form principal declare a procedure a seguir:
procedure ScrollMouse(var Msg: TMsg; var Handled: Boolean);
A implementação desta procedure fica assim:
procedure TFormPrincipal.ScrollMouse(var Msg: TMsg; 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;No evento OnCreate do Form coloque esta linha:
procedure TFormPrincipal.FormCreate(Sender: TObject); begin Application.OnMessage := ScrollMouse; end;
Atenciosamente,
Fernando.
Responder
Gostei + 0
08/12/2005
Gigatel
Apesar de ter um tempinho, más vlw adotei um componete para resolver isso más vou estudar a função, vlw mesmo t+
Responder
Gostei + 0
10/01/2014
Eduardo Mendonça
Fiz como esta dizendo mais da um erro
uso Delphi 7
Debugger Exception Notification --------------------------- Project Autosad.exe raised exception class ERangeError with message 'Range check error'. Process stopped. Use Step or Run to continue. --------------------------- OK Help ---------------------------
uso Delphi 7
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)