我有一段代码如下: procedure TInput.Sum; var sumoutput,suminput:double; i:integer; begin suminput:=0; sumoutput:=0; //统计数额 for i:=1 to 100 do if (stringgrid1.Cells[2,i]<>'')and(stringgrid1.Cells[3,i]<>'') then begin suminput:=suminput strtofloat(stringgrid1.Cells[2,i]); sumoutput:=sumoutput strtofloat(stringgrid1.Cells[3,i]); end; dbedit6.Text:=floattostr(suminput); dbedit7.Text:=floattostr(sumoutput); end; 现在的问题是 在stringgrid1.Cells[2,i]或者stringgrid1.Cells[3,i])上输入数字后 不能 即时 反映到dbedit6.Text和dbedit7.Text上 即需要你把鼠标在其他地方点一下 stringgrid中的数字才能反映到dbedit上 我想是不是 需要写个 onmouseup 或者onmousedown事件 亦或者回车确认数字反映到dbedit上 不知如何写 请指教 谢谢

相同问题请勿重复提问喔~ 写在StringGrid1的OnKeyPress事件中即可！

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  sum;
end;

参考看看 ============================ 为什么经过多年以后，得失的过程如此冷漠 ============================

呵呵 不好意思 在下看到点击太少 以为发错了版块 多谢deity 你的方法可行