Delphi中DBGrid组件鼠标滚轮事件的的设计与应用   2009-10-29 18:59:31

单击“OK”按钮，将会进入“NewDBGrid.pas”代码编辑窗口，并输入如下代码：unit NewDBGrid;interfaceuses Windows,Messages,SysUtils,Classes,Controls,Grids,DBGrids;type TNewDBGrid=class(TDBGrid) privatefOnMouseWheel:TMouseWheelEvent;/声明事件变量以保存过程指针...

作者：云开雾散 （云开雾散的博客） 标签：鼠标滚轮 事件 dbgrid 校园 订阅

【best】DBGrid中用鼠标滚轮浏览记录code   2009-10-17 10:33:08

THandle;aName:array of char;begin//给DBGrid加上鼠标滚轮 ifMsg.message WM_MOUSEWHEEL thenexit...ifboolean(GetClassName(hWnd,aName,256))and(aName='TDBGrid')then//如果第三方控件需要修改，比如用aName='TbsSkin...DBGrid'beginif Short(HIWORD(Msg.wParam...

作者：金色年华 （金色年华的博客） 标签：dbgrid 中用鼠标 滚轮 浏览记录 it 订阅

如何动态更新DBGrid的颜色   2009-05-13 12:09:39

e如何动态更新DBGrid的颜色DBGrid控件是一个有许多用户接口的显示数据库的控件，以下的程序告诉您如何根据显示的内容改变字体的显示颜色。例如，如果一个城市的人口大于200万，我们就让它显示为蓝色。使用的控件事件为TForm1...

作者：西部飞人 （西部飞人的博客） 标签：delphi dbgrid 订阅

TDBGrid控件使用心得(常用的操作,比较实用)   2008-11-14 21:28:53

TMainForm.DBGrid1DrawColumnCell(Sender:TObject;const Rect:TRect;DataCol:Integer;Column:TColumn;State:TGridDrawState);begin if gdfocused in statethen//获得焦点的单元格clred;/设置填充该单元格为红色dbgrid1.canvas.FillRect(rect);/填充该区域clblack...

作者：zhan_z_r （一线软件工作室） 标签：delphi源码 tdbgrid dbgrid使用 dbgrid颜色 delphi技巧 杂谈 订阅

Delphi中DBGrid使用全书(二)   2008-10-20 09:16:15

(RowPerPage*(PageCount-1)+1)++IntToStr(RowCount)+'条，共'+IntToStr(DataSet.RecordCount)+'条');lx:=2*PointX;ly:=ly+THeight*2;py1:=thenpy2:=py1+THeight*(RowCount-RowPerPage*(PageCount-1)+1)elsepy2:=py1+THeight*(RowPerPage+1);SumWidth:=lx;for i:=0...

作者：雨中编程 （小剑的BLOG） 标签：dbgrid 杂谈 订阅

Delphi中DBGrid 应用全书(一)   2008-10-20 09:13:09

mod 2=0 then(Sender as TDBGrid).clInfoBk//定义背景颜色else(Sender as TDBGrid).RGB(191,255,223);/定义背景颜色//定义网格线的颜色：DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);with (Sender asTDBGrid).Canvas do//画 cell的边框beginPen.Color...

作者：雨中编程 （小剑的BLOG） 标签：dbgrid 杂谈 订阅

Delphi中DBGrid使用全书(五)   2008-10-20 09:19:55

控件隐藏或显示标题栏DbGrid控件隐藏或显示标题栏1、新建一个带两个参数的过程(第1个参数是菜单对象，第2 个是DbGrid控件):Procedure ViewTitle(Sender:TObject;DbgColumns:TDBGrid);/隐藏或显示DbGrid标题栏2、然后按Ctrl+Shift+C组合键,定义的过程会在实现部分出现...

作者：雨中编程 （小剑的BLOG） 标签：dbgrid 杂谈 订阅

Delphi中DBGrid使用全书(四)   2008-10-20 09:18:55

DbGrid控件的标题栏弹出菜单procedure TFrmOrderPost.DbgOrderPostMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);var CurPost:TPoint;beginGetCursorPos(CurPost);/获得鼠标当前坐标 if ((y

作者：雨中编程 （小剑的BLOG） 标签：dbgrid 杂谈 订阅

Delphi中DBGrid使用全书(三)   2008-10-20 09:17:40

Dialogs,StdCtrls,Grids,DBGrids,Db,DBTables,Excel97,OleServer,Word97;type TForm1=class(TForm)ExcelApplication1:TExcelApplication;ExcelWorkbook1:TExcelWorkbook;ExcelWorksheet1:TExcelWorksheet;Table1:TTable;DataSource1:TDataSource;DBGrid1:TDBGrid...

作者：雨中编程 （小剑的BLOG） 标签：dbgrid 杂谈 订阅

delphi dbgrid 支持鼠标滚动行   2008-07-02 14:48:32

} OldGridWnd:TWndMethod;procedureNewGridWnd (var Message:TMessage);implementation OldGridWnd:=DBGrid1.WindowProc;DBGrid1.WindowProc...if IsNegthenDBGrid1.DataSource.DataSet.MoveBy(1) else...DBGrid1.DataSource.DataSet.MoveBy(-1) end elseOldGridWnd...

作者：forcnprodelphis （forcnprodelphis的博客） 标签：delphi dbgrid 支持鼠标滚动行 it 订阅