listview和dbgrid怎么将里面选中的记录复制到剪贴板中?谢谢,在线等
解决方案 »
- fastreport中如果动态设置纸张,如A3,A4,B5纸等
- 关于自定义函数的应用
- ADO数据库连接SQL,如何定时检查是否连接或者是连接失败?!
- BusinessSkinForm中的ButtonBare有没有Itemindex属性,如何确定点中的是哪一个Item?
- 怎样在form中用程序判断表(paradox)是否纯在?
- bachmove 控件的用法 (几中更新方式 怎样动态设计)——
- 请问在delphi中,把一个窗口变成一个图标放在任务栏右角上,要用到什么函数。
- FR3分组打印的问题
- 各位看到有kylix卖吗?怎么我买不到啊?
- 如何模拟键盘按下了ctrl+某个键(比如ctrl+A)?
- 答辩完了,感觉不错,散分
- 还是关于DBGrid的简单问题
action1.short:=Ctrl+C;procedure TForm1.Action1Execute(Sender: TObject);
var
i, j: Integer;
s,c: string;
begin
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBook(pointer(DBGrid1.SelectedRows.Items[i]));
for j := 0 to FieldCount-1 do
begin
if (j>0) then s:=s+chr(9);
s:=s+DBGrid1.DataSource.DataSet.Fields[j].AsString;
end;
if i>0 then c:=c+chr(13)+chr(10);
c:=c+s;
s:= '';
end;
ClipBoard.AsText:=c;
end;