DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: diga
今日帖子: 28
在线用户: 12
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 guxang (※西门吹雪※) ★☆☆☆☆ -
普通会员
2004/2/13 9:09:26
标题:
关于过程何时被执行的问题,大虾赐教 浏览:1373
加入我的收藏
楼主: 我在一窗口程序中写了个过程
procedure figure()
但在FORMCREATE里并没有调用它,但它仍然在程序启动时被执行了,这是什么原因?
----------------------------------------------
-
作者:
男 zsredmoon (=^@^=) ★☆☆☆☆ -
盒子活跃会员
2004/2/13 9:11:37
1楼: 按此在新窗口浏览图片按此在新窗口浏览图片 按此在新窗口浏览图片 主界面按此在新窗口浏览图片 按此在新窗口浏览图片 按此在新窗口浏览图片 按此在新窗口浏览图片 按此在新窗口浏览图片 按此在新窗口浏览图片 按此在新窗口浏览图片 按此在新窗口浏览图片 按此在新窗口浏览图片 按此在新窗口浏览图片 按此在新窗口浏览图片 事件按此在新窗口浏览图片 执行?
----------------------------------------------
按此在新窗口浏览图片
=^@^=
作者:
男 zsredmoon (=^@^=) ★☆☆☆☆ -
盒子活跃会员
2004/2/13 9:12:09
2楼: 或者按此在新窗口浏览图片按此在新窗口浏览图片 加到哪个按此在新窗口浏览图片 按此在新窗口浏览图片 按此在新窗口浏览图片 按此在新窗口浏览图片 按此在新窗口浏览图片 按此在新窗口浏览图片 里边?
----------------------------------------------
按此在新窗口浏览图片
=^@^=
作者:
男 hotyei (青出于蓝) ★☆☆☆☆ -
盒子活跃会员
2004/2/13 9:19:48
3楼: 您是在哪里调用了?
----------------------------------------------
米软科技有限公司http://www.szmesoft.com
作者:
男 Giver (Giver) ★☆☆☆☆ -
盒子活跃会员
2004/2/13 9:23:05
4楼: 或者在onshow?
----------------------------------------------
http://www.gaiwei.com
作者:
男 guxang (※西门吹雪※) ★☆☆☆☆ -
普通会员
2004/2/13 9:23:37
4楼: 没有,主FORM只有一个CREATE事件
调用是在四个UPDOWN控件的click事件里,代码如下:
procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
figure();
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
bj:=strtoint(info1.text);
nf:=strtoint(info2.text);
ll:=strtoint(info3.text);
tzbl:=strtoint(info4.text);
end;

procedure TForm1.UpDown3Click(Sender: TObject; Button: TUDBtnType);
begin
figure();
end;

procedure TForm1.UpDown2Click(Sender: TObject; Button: TUDBtnType);
begin
figure();
end;

procedure TForm1.info4Change(Sender: TObject);
begin
figure();
end;

procedure figure();
begin
略去......
end;

end.
----------------------------------------------
-
作者:
男 hotyei (青出于蓝) ★☆☆☆☆ -
盒子活跃会员
2004/2/13 9:30:23
5楼: info4Change 里调用了figure。而Create里调用了info4Change
----------------------------------------------
米软科技有限公司http://www.szmesoft.com
作者:
男 guxang (※西门吹雪※) ★☆☆☆☆ -
普通会员
2004/2/13 9:30:54
5楼: 问题找到了,原因就是最后那个INFO4CHANGE事件,INFO4是一个LABELEDEDIT控件,真是奇怪了,启动时又没改他的数值
----------------------------------------------
-
作者:
男 guxang (※西门吹雪※) ★☆☆☆☆ -
普通会员
2004/2/13 9:32:06
6楼: 原来STRTOINT就会启动CHANGE事件啊,明白了
----------------------------------------------
-
作者:
男 zsredmoon (=^@^=) ★☆☆☆☆ -
盒子活跃会员
2004/2/13 10:00:57
7楼: 你有没有在其它地方给info4.text赋值?
strtoint(info4.text)应该是不会触动info4的OnChange事件的
----------------------------------------------
按此在新窗口浏览图片
=^@^=
作者:
男 guxang (※西门吹雪※) ★☆☆☆☆ -
普通会员
2004/2/13 10:13:10
8楼: info4.text是通过UPDWON控件调整的,所以没有赋值语句,而且上面我已经贴出所有代码了,而且我把INFO4CHANGE改成UPDOWN4CLICK后问题就解决了,UPDOWN4是和INFO4绑定的
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行1242.188毫秒 RSS