delphi4arab منتديات دلفي للعرب

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

وعليكم السلام ورحمة الله وبركاته
لحساب طول النص استخدم التابع 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
بالتوفيق.

في الحدث Onkeypress ل edit1

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

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

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

وليد

kachwahed

format82

وليد