DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: szliyu112358
今日帖子: 52
在线用户: 14
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 kenydeng (幽灵) ★☆☆☆☆ -
普通会员
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;

----------------------------------------------
-
作者:
男 mantousoft (孜孜不倦的馒头) ★☆☆☆☆ -
盒子活跃会员
2003/5/21 14:46:48
1楼: 你的错误和你的代码没有关系,代码中i在什么地方申明的。
你搜索你的程序代码中 ***.setfocus 的地方。
----------------------------------------------
看到帖子就想顶,原谅我是这么直了~ 
作者:
男 qsmile (qsmile) ★☆☆☆☆ -
盒子活跃会员
2003/5/21 17:58:41
2楼: gz
----------------------------------------------
无色无味
作者:
男 kenydeng (幽灵) ★☆☆☆☆ -
普通会员
2003/5/21 18:48:12
3楼: 谢谢 mantousoft 
  我找到出错的地方了
     谢谢!!!!!!文字
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行70.3125毫秒 RSS