怎么快捷复制一列 在DBGrid中设置不滚动的列及复制与粘贴[2]

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

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

    单击 复制 按钮调用文本框的CopyToClipboard（复制）方法 复制文本框中的数据 主要代码如下     procedure TFrmOrderBy BtnOrderClick(Sender: TObject);     begin       dbedt SetFocus;       dbedt SelectAll;       dbedt CopyToClipboard;       dbedt SelStart := length(dbedt Text);     end;     单击 粘贴 按钮中调用文本框的PasteFromClipboard（粘贴）方法 把数据粘贴到选择的表格单元中 主要代码如下     procedure TFrmOrderBy Button Click(Sender: TObject);     begin       dbedt SetFocus;       dbedt SelectAll;       dbedt PasteFromClipboard;       DBGList SelectedField AsString := dbedt Text;     end;

lishixinzhi/Article/program/Delphi/201311/8522