advstringgrid 滚轮
由于advstringgrid比stringgrid美观、网格清晰,用advstringgrid代替stringgrid通过鼠标滚轮浏览数据翻页。在上下浏览翻页过程中会使原先选中的行业上下移动。怎么样能使它不动。
procedure TForm2.AdvStringGrid1MouseWheelDown(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
SendMessage(AdvStringGrid1.Handle,WM_VSCROLL,SB_LINEDOWN,0);
Handled:=true;
end;
procedure TForm2.AdvStringGrid1MouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
SendMessage(AdvStringGrid1.Handle,WM_VSCROLL,SB_LINEUP,0);
Handled:=true;
end;