表格怎么复制一列数据 在DBGrid中设置不滚动的列及复制与粘贴[1]

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

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

    在DBGrid中设置不滚动的列

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

//develop csai cn/delphi/images/ jpg >图   在DBGrid中设置不滚动的列

    单击 设置固定列 按钮中把DBGrid表格强制转换为TstringGrid类型 然后设置固定列的序号 主要代码如下     procedure TFrmOrderBy BtnOrderClick(Sender: TObject);    begin      TStringGrid(DBGList) FixedCols := ;    end;

     说明 此方法在以下操作后失效:    （ ）鼠标将其中一栏的宽度拉大后     （ ）被锁定列的标题文字无法显示     （ ）在移动标题栏或改变DBGrid的行或列时

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

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

//develop csai cn/delphi/images/ jpg >图   在DBGrid中实现复制 粘贴功能

    在DBGrid的ColEnter事件中设置文本框的连接字段 也就是在单击列的时候把当前列连接字段赋给文本框 使文本框显示的内容和当前选择的单元格的值保持一致 主要代码如下     procedure TFrmOrderBy DBGListColEnter(Sender: TObject);     begin       dbedt DataField := DBGList SelectedField FieldName     end;

lishixinzhi/Article/program/Delphi/201311/8523