StringGrid 的option中的goRangeSelect设置为false
确保goRowSelect为true;
然后
procedure TfrmEvent.StringGrid1Click(Sender: TObject);
begin
doEveID.Text:=StringGrid1.Cells[0,StringGrid1.selection.bottom];
doID.Text := StringGrid1.Cells[1,StringGrid1.selection.bottom];
end;