菜鳥求助
在白色的EDIT中任意修改其中一個 值 其他灰是的都重新計算
希望大神指點一下
原始碼等一起打包上傳。
uj5u.com熱心網友回復：
OnChangeuj5u.com熱心網友回復：
http://download.csdn.net/detail/baidu_20650485/9409528試試能不能下載，不懂可以問我Q1127756135
uj5u.com熱心網友回復：
procedure TForm1.Edit1Change(Sender: TObject);
var
a,b,c,d : integer;
begin
if (edit1.Text <> '') and (edit2.Text <> '') and (edit3.Text <> '') then
begin
a := strtoint(edit1.Text);
b := strtoint(edit2.Text);
c := strtoint(edit3.Text);
d := a + b + c;
edit4.Text := d.ToString();
edit5.Text := d.ToString();
end
end;
就在白色的edit控制元件的onchange 的事件里寫需要計算的公式代碼就可以了~~相同的可以直接呼叫，在onchang里選擇就可以了
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/72877.html
標籤：非技術區