|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2003/5/21 13:03:50 |
标题: |
请问以下的错误提示是什么???? 请高手进来帮忙!!!!!1 |
浏览:2418 |
|
加入我的收藏 |
楼主: |
cannot focus a disabled or invisible window
运行下列程序产生的...
procedure TForm3.Button1Click(Sender: TObject); var t:integer; begin table3.active:=true; with table3 do begin for t:=i downto 1 do begin table3.Append; table3.FieldValues['khbh']:=trim(edit5.Text); table3.FieldValues['khmc']:=trim(edit1.Text ); table3.FieldValues['ddbh']:=trim(edit2.Text ); table3.FieldValues['khpo']:=trim(edit4.Text ); table3.FieldValues['khlx']:=trim(stringgrid1.Cells[1,t]); table3.FieldValues['khzz']:=trim(stringgrid1.Cells[2,t] ); table3.FieldValues['ggz']:=strtofloat(trim(stringgrid1.Cells[3,t])); table3.FieldValues['ggk']:=strtofloat(trim(stringgrid1.Cells[4,t])); table3.FieldValues['ggg']:=strtofloat(trim(stringgrid1.Cells[5,t])); table3.FieldValues['khsl']:=strtoint(trim(stringgrid1.Cells[6,t])); table3.FieldValues['khbz']:=trim(stringgrid1.Cells[7,t]); table3.FieldValues['ldrq']:=datetimepicker1.Date; table3.FieldValues['jkrq']:=datetimepicker2.Date; table3.FieldValues['czy']:=trim(edit3.Text ); table3.Post ; stringgrid1.Cells[0,t]:=' ; stringgrid1.Cells[1,t]:=' ; stringgrid1.Cells[2,t]:='; stringgrid1.Cells[3,t]:=' ; stringgrid1.Cells[4,t]:=' ; stringgrid1.Cells[5,t]:=' ; stringgrid1.Cells[6,t]:=' ; stringgrid1.Cells[7,t]:=' ; end; //for end; //with i:=0; end;
----------------------------------------------
- |
作者: |
|
2003/5/21 14:46:48 |
1楼: |
你的错误和你的代码没有关系,代码中i在什么地方申明的。 你搜索你的程序代码中 ***.setfocus 的地方。
----------------------------------------------
|
作者: |
qsmile (qsmile) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2003/5/21 17:58:41 |
2楼: |
gz
----------------------------------------------
无色无味
|
作者: |
|
2003/5/21 18:48:12 |
3楼: |
谢谢 mantousoft 我找到出错的地方了 谢谢!!!!!!文字
----------------------------------------------
-
|
|