在stringgrid里输入数据反应到dbedit中的即时问题 |
|
答題得分者是：deity
|
|
baby2321
初階會員   發表：52 回覆：165 積分：48 註冊：2005-06-11 發送簡訊給我 |
我有一段代码如下:
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上 不知如何写 请指教 谢谢
|
|
Stallion
版主 發表：52 回覆：1600 積分：1995 註冊：2004-09-15 發送簡訊給我 |
|
|
baby2321
初階會員 發表：52 回覆：165 積分：48 註冊：2005-06-11 發送簡訊給我 |
|
|
deity
尊榮會員 發表：90 回覆：876 積分：678 註冊：2003-05-09 發送簡訊給我 |
baby2321 您好：您上面的代码非将stringgrid1.Cells[2,i]或者stringgrid1.Cells[3,i])输入的数字即时 反映到dbedit6.Text和dbedit7.Text上，而是累加的吧？
您可以将其写在StringGrid1的OnKeyPress事件中即可！
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char); begin sum; end;参考看看============================ 为什么经过多年以后，得失的过程如此冷漠 ============================ |
|
baby2321
初階會員 發表：52 回覆：165 積分：48 註冊：2005-06-11 發送簡訊給我 |
|
|
baby2321
初階會員 發表：52 回覆：165 積分：48 註冊：2005-06-11 發送簡訊給我 |
發表時間：2005-08-01 21:09:59
IP:219.140.xxx.xxx 未訂閱
系統時間：2024-07-05 3:44:04
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |