看看这个问题该怎么解决？？(50分)

笨

笨猪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-05

• #1

我有一个窗体，在窗体上有很多的edit组件，我该怎样判断用户是否对这些edit组件<br>的内容做了修改以便用户在退出的时候提示用户是否要保存修改？？？？

 

少

少爷的拐杖

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-05

• #2

edit的onchange事件里写代码.<br>比如把一个标志变量变为真,退出时判断这个变量值.<br>所有edit可以公用一个onchange

 

H

hcxemail

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-05

• #3

function CheckStatus:boolean;<br>begin <br>&nbsp; Result:=false;<br>&nbsp; for i := 0 to ConponentCount-1 do<br>&nbsp; &nbsp; if Conponents is TEdit theen<br>&nbsp; &nbsp; &nbsp; if TConponent(Conponents).Modified then<br>&nbsp; &nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; &nbsp; Result := True;<br>&nbsp; &nbsp; &nbsp; &nbsp; exit;<br>&nbsp; &nbsp; &nbsp;end; <br>end;

 

笨

笨猪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-06

• #4

to 少爷的拐杖<br>怎样使所有edit公用一个onchange事件？？？<br><br>to hcxemail:<br>你写的代码不行啊！！！！

 

少

少爷的拐杖

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-06

• #5

公用一个事件：<br>你在一个edit的onchange事件里写代码后，在对象管理器中把其他edit的onchange事件右边<br>的下拉按钮按一下，可以选取到。<br>hcxemail的代码是可以的，可能要做点小修改<br>function CheckStatus:boolean;<br>begin <br>&nbsp; Result:=false;<br>&nbsp; for i := ComponentCount－1 downto 0 do<br>&nbsp; &nbsp; if (Components is TEdit) theen<br>&nbsp; &nbsp; &nbsp; if (Components as TEdit).Modified then<br>&nbsp; &nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; &nbsp; Result := True;<br>&nbsp; &nbsp; &nbsp; &nbsp; exit;<br>&nbsp; &nbsp; &nbsp;end; <br>end;<br>//如果没有拼写错误就这样了

 

笨

笨猪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-26

• #6

多人接受答案了。