سلام
به نظر منم سوال واضح نیست!
نوشته شده توسط
اَرژنگ
ایشان 41 edit Box دارند که در یکی مقدار ثابتی قرار می گیردبا وارد کردن عدد وخروج از 20 تا به ترتیب بعدی ، درصد مقدار ثابت را در خود می گیرد.
[/CODE]
یعنی با خروج از هر کدوم یه کد مورد نظر ایشان اجرا میشه؟
خروج از 20 تا به ترتیب بعدی یعنی چه؟
نوشته شده توسط
اَرژنگ
.همه را با یک رویداد مدیریت می کنند.
یا یعنی در رویداد خروج اولی بقیه درصدی از مقدار ثابت را می گیرند؟ و همه کد مورد نظر ایشان در رویداد خروج اولین edit است؟
به هر حال من که نفهمیدم فعلا کد را کجا نوشتند!
ولی فکر می کنم برای اینکه با تغییر مقدار edit اول بقیه هم تغییر کنند.
اگر edit ها را به ترتیب گذاشته باشند میشه کدی شبیه زیر نوشت، البته چطور درصدی می خواهند داشته باشه را خودشون میدونند و این یه مثاله!
procedure TForm1.Edit1Change(Sender: TObject);
var
i,j,k,n:integer;
begin
if edit1.Text <>'' then
begin
n:=strtoint(edit1.Text );
i:=edit2.ComponentIndex ;
j:=edit41.ComponentIndex ;
for k:=i to j do
begin
(Components[k] as TEdit).Text:=FloatToStr(n*k/100);
end;
end;
end;
همگی موفق باشید!