Цитата:
|
Сообщение от poli-smen
Ты пользуешься стандартным TDBGrid? Стандартный TDBGrid в Delphi 7 некорректно работает с колесом мышки. Чтобы это поправить нужно в обработчике OnMouseWheel добавить правильную обработку колеса мышки.
|
да, я обработал по-другому колесо мышки(взял с какого-то сайта):
Код:
procedure TMainFrm.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage;
end;
procedure TMainFrm.next_Prior;
begin
CustGrd.DataSource.DataSet.Prior;
end;
procedure TMainFrm.next_record;
begin
CustGrd.DataSource.DataSet.Next;
end;
procedure TMainFrm.AppMessage(var Msg:TMsg; var Handled: Boolean);
begin
IF Msg.message = WM_MOUSEWHEEL then
if CustGrd.Focused then
if CustGrd.DataSource.DataSet.Active then
begin
IF(( msg.wParam <=32512) and
( Msg.message = WM_MOUSEWHEEL)) then
next_record;
IF(( msg.wParam > 32512) and
( Msg.message = WM_MOUSEWHEEL)) then
next_Prior
;
Handled:=true;
end;
end;