将DBGrid 当前列定位到指定的字段上

//--------------------------------------------------------------------------------
// 功能：将 DbGrid 当前列定位到某字段上。
// 参数： pDbGrid:TDbGrid; DBGrid
// pcFieldName : string 数据表字段名，字段名不区分大小写
// 返回：当表字段在 DBGrid 中存在时，返回表字段所在的列的序号，首序号为0
// 否则，返回 -1
// 引用：GetDbGridColumnIndex( );
// 例如：SetDbGridColumn( DbGrid1, ''''Price'''' );
//--------------------------------------------------------------------------------
Function SetDbGridColumn( pDbGrid:TDbGrid; pcFieldName : string ):integer;
var nCol : integer ;
begin
Result := GetDbGridColumnIndex( pDbGrid, pcFieldName );
if nCol >= 0 then pDbGrid.SelectedIndex := Result ;
end;

例子：

SetDbGridColumn( DbGrid1, ''''Price'''' );
将DbGrid1的当前列定位到字段Price上。

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!