TGrid控件怎么编写拖动垂直滚动条事件 仁兄: 当Grid中的数据超过本身显示的范围,会出现垂直滚动条,拖动垂直滚动条时将触发什么事件,而且怎么编写代码来实现拖动时时时在Grid中指针的定位 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, ComCtrls, ExtCtrls, Buttons, jpeg; type TDBGrid= class(DBGrids.TDBGrid); public function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override; end;type TGrid = class(TDBGrid);...........implementation..function TDBGrid.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean;begin if WheelDelta < 0 then Datasource.DataSet.Next; if wheelDelta > 0 then DataSource.DataSet.Prior;end; ADOQuery操作一個,觸發器裡改別一個表出錯? 特别难的问题! 关于delphi的调试时程序出错了,任务拦的程序用蓝色在闪,怎样停止它使delphi 进入设计状态的问题? 我恨D5。。。。 如何更快导出到excel 求教高手 Come on!!! DAXIA! 实在很急关于本地表的问题. 现在哪个版本的Delphi比较好 三层模式下的ClientDataset的Params问题。 高分求解!(共400) 如何用DELPHI来实现打印网页上某一个特定的区域??? 目前传奇2盗号程序原代码解析篇(价值800买的不要骂我) 小女子问简单问题,急,达人乱入,先拜谢了。。。
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, ComCtrls, ExtCtrls, Buttons, jpeg;
type
TDBGrid= class(DBGrids.TDBGrid);
public
function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override;
end;
type
TGrid = class(TDBGrid);
...........
implementation
..
function TDBGrid.DoMouseWheel(Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint): Boolean;
begin
if WheelDelta < 0 then
Datasource.DataSet.Next;
if wheelDelta > 0 then
DataSource.DataSet.Prior;
end;