اگر در EditBox1 کاربر 3 کارکتر تایپ کرد به EditBox2 (ادیت باکس بعدی ) برود

[ali_abbasi22145]

سلام
من از دلفی 7 استفاده می کنم و با امکانات استاندارد دلفی 7 می خواهم (احتمالاباOnkeypress می شود):
اگر در EditBox1 کاربر 3 کارکتر تایپ کرد به EditBox2 (ادیت باکس بعدی ) برود.
مانند : اگر "123" را تایپ کرد خودکار به ادیت بعدی برود
اگر "sdg" را تایپ کرد خودکار به ادیت بعدی برود.
اگر "sdrt" را تایپ کرد فقط 3 کارکتر اول رابگیرد یعنی ''sdr"خودکار به ادیت بعدی برود.

[developing]

با سلام

فقط کافیه در رویداد onChange اون edit مربوطه دستور زیر را بنویسید:
if length(edit1.text) >= 3 then
edit4.setfocus;

اما اگه می خوای برای تمام edit ها کد بنویسی که اون یه چیز دیگه است.

[nilidelphi]

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.GetTextLen>= 3 then
begin
PostMessage(handle,WM_NEXTDLGCTL,0,0);
end;
end;