在DBGrid中设置不滚动的列及复制与粘贴[1]

——此文章摘自《Delphi开发经验技巧宝典》定价￥特价￥  购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

在DBGrid中设置不滚动的列

应用程序可以锁定表格中指定的几列不进行滚动我们知道Delphi的TStringGrid有一个属性FixedCols可用于指定不滚动的列虽然TDBGrid不能直接使用这一属性但通过强制类型转换也可以实现这一功能因为这两个类都来自TCustomGrid类如图所示

http://developcsaicn/delphi/images/jpg>

图 在DBGrid中设置不滚动的列

单击设置固定列按钮中把DBGrid表格强制转换为TstringGrid类型然后设置固定列的序号主要代码如下

procedure TFrmOrderByBtnOrderClick(Sender: TObject);

begin

TStringGrid(DBGList)FixedCols := ;

end;

说明此方法在以下操作后失效:

（）鼠标将其中一栏的宽度拉大后

（）被锁定列的标题文字无法显示

（）在移动标题栏或改变DBGrid的行或列时

如何在DBGrid中实现复制粘贴功能

在应用程序中DBGrid经常会被用来对数据进行编辑如果没有复制和粘贴功能使用起来会非常不方便因为DBGrid不是一个标准的Windows组件所以没有CopyToClipboard（复制）和PasteFromClipboard（粘贴）这两个方法但是可以把DBGrid需要复制的数据转移到文本框中然后通过文本框的 CopyToClipboard（复制）和PasteFromClipboard（粘贴）方法对数据进行复制和粘贴如图所示

http://developcsaicn/delphi/images/jpg>

图 在DBGrid中实现复制粘贴功能

在DBGrid的ColEnter事件中设置文本框的连接字段也就是在单击列的时候把当前列连接字段赋给文本框使文本框显示的内容和当前选择的单元格的值保持一致主要代码如下

procedure TFrmOrderByDBGListColEnter(Sender: TObject);

begin

dbedtDataField := DBGListSelectedFieldFieldName

end;

right>[] [http://developcsaicn/delphi/htm>]