吴昊的博客

//StringGrid的鼠标移动事件procedureTfrmCKSJHD.sg_JCSJMouseMove(Sender:TObject;Shift:TShiftState;X,Y:Integer);beginwithsg_JCSJdobegin//当鼠标在标题行且不在序号列时，鼠标指针变成手形if(GetRowByCY(sg_JCSJ,Y)=0)and(GetColByCX(sg_JCSJ,X)0)thenbeginCursor:=crHandPoint;end//其他情况鼠标指针为默认elseCursor:=crDefault;end;end;//----------------- Read More

unitSGridFunction;{*******************************************模块名称：StringGrid操作函数模块编写者：Tony开始日期：2006年12月05日版本号：v1.0.7********************************************}interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,SConnect,Dialogs,Global,Grids,DBGrids,DB,DBClient,WinSkinD Read More