يه کنترل Edit يا همون Textbox که فقط داخلش عدد نوشته بشه؟

[Arash_XL7710i_207]

اگه کد داره کدش چيه؟

[مرد مباح]

میتونی MaskEdit بزاری و توی Mask اون بنویسی 00000000
اینجوری عدد میگیره.
البته خیلی راه های دیگه هم داره که این از همه ساده تره.

[Arash_XL7710i_207]

خيلي خيلي ممنون

[Hamid_PaK]

می تونید با کدنویسی در قسمت OnKeyPress هم یک ادیت باکس سفارشی درست کنید !

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

یا حق ...

[F A R H A D]

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

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key<>#8 then
if ((key<'0') or (key>'9'))and (key<>'.') then
key:=#0;
end;

پیروز باشید

[Hamid_PaK]

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

کد که ضمیمه شد جهت آموزش بود ، براحتی قابل سفارشی شدن هست ( همون طور که شما این کار را انجام دادید ) .

یا حق ...