StringGrid1.Options:=StringGrid1.Options+[goRowSelect];
    Edit1.text:=StringGrid1.Cells[1,StringGrid1.row];
    Edit2.text:=StringGrid1.Cells[2,StringGrid1.row];
    Edit3.text:=StringGrid1.Cells[3,StringGrid1.row];

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
        Edit1.text:=StringGrid1.Cells[1,StringGrid1.row];
        Edit2.text:=StringGrid1.Cells[2,StringGrid1.row];
        Edit3.text:=StringGrid1.Cells[3,StringGrid1.row];
    end;
      

  2.   

    首先设置StringGrid1的Options中goRowSelect为'true',也就是顶楼的第一句。
    接着
        Edit1.text := StringGrid1.Cells[1,StringGrid1.row];
        Edit2.text := StringGrid1.Cells[2,StringGrid1.row];
        Edit3.text := StringGrid1.Cells[3,StringGrid1.row];