如题。
比如:
no.text:=双击获得DBGrid的数据。

解决方案 »

  1.   

    procedure TForm1.DBGrid1CellClick(Column: TColumn);
    begin
    form1.Label1.Caption:=form1.DataSource1.DataSet.Fields.Fields[column.index].Value;
    end;
      

  2.   

    procedure TForm1.DBGridDblClick(Sender: TObject);
    begin
      no.text:=dbgrid.datasource.dataset.fieldbyname('no').asstring ;
    end;
      

  3.   

    procedure TForm1.DBGridDblClick(Sender: TObject);
    begin
      no.text:=dbgrid.datasource.dataset.fieldbyname('aa').asstring ;//aa字段必须是字符型
    end;procedure TForm1.DBGridDblClick(Sender: TObject);
    begin
      no.text:=inttostr(dbgrid.datasource.dataset.fieldbyname('bb').asinteger) ;
                                 //bb字段是数值型
    end;