由于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;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/91706.html
標籤：VCL組件開發及應用
上一篇：編譯出錯，不知道什么原因