如何用鼠标实现对DBGrid的多个单元格进行选择，并在右键菜单中的复制其内容到一个文本文件中，急需！

Question

就像excel里面的一样，可以用鼠标拖住多个单元格进行复制？

Answer 1

Delphi Help 中这段代码你加上去就可以用的
procedure TForm1.Button1Click(Sender: TObject);
var
   i,  j:  Integer;
   s:  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+',  ';
                   s:=s+Fields[j].AsString;
               end;
               Listbox1.Items.Add(s);
               s:=  '';
           end;
end;

Answer 2

不错，不过DBGrid的属性dgRowSelect和dgMulitSelect值须设为True

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
    var
    i:integer;
    booklist:Tbooklist;
    book:tbookstr;
    begin
      book:=adoquery1.Book;
      booklist:=dbgrid1.SelectedRows;
      try
      begin
        for i:=0 to booklist.Count-1 do
        begin
          adoquery1.Book:=booklist[i];
          with adoquery1 do
          begin
            edit;
            fieldbyname('mdg').AsString:=edit2.Text;
            post;
          end;
        end;
      end;
      finally
      adoquery1.Book:=book;
      end;
    end;

Answer 4

要实现用鼠标拖拉出一个范围，然后复制其中单元格的内容，在一个文本文件中又可以粘添，就像excel里面的一样，可以用鼠标拖住多个单元格进行复制？