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

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

单击复制按钮调用文本框的CopyToClipboard（复制）方法复制文本框中的数据主要代码如下

procedure TFrmOrderByBtnOrderClick(Sender: TObject);

begin

dbedtSetFocus;

dbedtSelectAll;

dbedtCopyToClipboard;

dbedtSelStart := length(dbedtText);

end;

单击粘贴按钮中调用文本框的PasteFromClipboard（粘贴）方法把数据粘贴到选择的表格单元中主要代码如下

procedure TFrmOrderByButtonClick(Sender: TObject);

begin

dbedtSetFocus;

dbedtSelectAll;

dbedtPasteFromClipboard;

DBGListSelectedFieldAsString := dbedtText;

end;

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