Rookie help
Any changes in the EDIT white one value is recalculated other grey yes
Hope the great god gives directions


Upload source such as packaged together,

CodePudding user response:

OnChange

CodePudding user response:

http://download.csdn.net/detail/baidu_20650485/9409528
Can try to download, do not understand can ask me Q1127756135

CodePudding user response:

 
Procedure TForm1. Edit1Change (Sender: TObject); 
Var 
A, b, c, d: integer; 
The begin 
If (edit1. Text & lt;> ") and (edit2. Text & lt;> ") and (edit3. Text & lt;> ") then 
The begin 
A:=strtoint (edit1. Text); 
B:=strtoint (edit2. Text); 
C:=strtoint (edit3. Text); 
D:=a + b + c; 
Edit4. Text:=which oString (); 
Edit5. Text:=which oString (); 
End 
end; 

In the white of the edit control onchange events need to compute formula written code is ok ~ ~ the same can be called directly, in onchang choice is ok