الانتقال بين مكونات edit بعد كتابة عدد بطول معين

[وليد]

السلام عليكم
كيف أستطيع التحكم في tedit بحيث إذا كتبت أرقاما معينة فيها وليكن مثلا أربعة أرقام تكتب في edit1 فإذا انتهيت منها انتقل المؤشر إلى edit2 مباشرة.
والسلام عليكم

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
لحساب طول النص استخدم التابع Length

كود :

Length(Edit1.Text)

الإجراء SetFocus لنقل التحكم إلى مكون آخر

كود :

Edit2.SetFocus;

أمثلة أخرى:
http://www.delphi4arab.net/forum/showthr...p?tid=1337
http://www.delphi4arab.net/forum/showthr...p?tid=4065
بالتوفيق.

[format82]

في الحدث Onkeypress ل edit1

اكتب الكود التالي

كود :

if Length(Edit1.Text)=4 then
begin
key:=#0;
Edit2.SetFocus;
end;

[وليد]

السلام عليكم
وشكرا لكم وبارك الله فيكم.