تغییر متن در OnChange

[Mohammadi_A]

از بین دوستان اگه کسی راهنمایی کنه ممنونم
میخوام در رویداد Onchange متن را تغییر دهم ولی رویداد مورد نظر باز اتفاق می افته و سیستم قفل می کنه

[MNosouhi]

میخوام در رویداد Onchange متن را تغییر دهم ولی رویداد مورد نظر باز اتفاق می افته و سیستم قفل می کنه
نگفتی دز onchange چه عنصری میخای متن رو تغییر بدی ؟ label,edit,...؟
این برای edit :

یه متغیر تعریف کن مثلا :


var b:boolean=false;

در خاصیت onkeypress از edit بنویس

b:=true
حالا در onchnage بنویس :


if b then
begin
b:=false;
//other codes
end;

[Mohammadi_A]

برای Edit است
باز هم نمی شه
همونطوریه یعنی باز هم قفل کرد

[MNosouhi]

برای Edit است
باز هم نمی شه
همونطوریه یعنی باز هم قفل کرد
تستش کردم ، کدی که گذاشتم مشکلی نداره.
مثالتان رو آپلود کنید تا یررسی شود.

[m-khorsandi]

خیلی هم جالب نیست :


procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.OnChange := nil;
Edit1.Text := 'test';
Edit1.OnChange := Edit1Change;
end;