|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/2/13 9:09:26 |
标题: |
关于过程何时被执行的问题,大虾赐教 |
浏览:1373 |
|
加入我的收藏 |
楼主: |
我在一窗口程序中写了个过程 procedure figure() 但在FORMCREATE里并没有调用它,但它仍然在程序启动时被执行了,这是什么原因?
----------------------------------------------
- |
作者: |
|
2004/2/13 9:11:37 |
1楼: |
没 主界面 事件 执行?
----------------------------------------------
=^@^=
|
作者: |
|
2004/2/13 9:12:09 |
2楼: |
或者 没 加到哪个 里边?
----------------------------------------------
=^@^=
|
作者: |
Giver (Giver) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2004/2/13 9:23:05 |
4楼: |
或者在onshow?
----------------------------------------------
http://www.gaiwei.com
|
作者: |
|
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.
----------------------------------------------
-
|
作者: |
|
2004/2/13 9:30:54 |
5楼: |
问题找到了,原因就是最后那个INFO4CHANGE事件,INFO4是一个LABELEDEDIT控件,真是奇怪了,启动时又没改他的数值
----------------------------------------------
-
|
作者: |
|
2004/2/13 9:32:06 |
6楼: |
原来STRTOINT就会启动CHANGE事件啊,明白了
----------------------------------------------
-
|
作者: |
|
2004/2/13 10:00:57 |
7楼: |
你有没有在其它地方给info4.text赋值? strtoint(info4.text)应该是不会触动info4的OnChange事件的
----------------------------------------------
=^@^=
|
作者: |
|
2004/2/13 10:13:10 |
8楼: |
info4.text是通过UPDWON控件调整的,所以没有赋值语句,而且上面我已经贴出所有代码了,而且我把INFO4CHANGE改成UPDOWN4CLICK后问题就解决了,UPDOWN4是和INFO4绑定的
----------------------------------------------
-
|
|