ورود

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


Arash_XL7710i_207
14-06-2007, 01:11
اگه کد داره کدش چيه؟
مرد مباح
14-06-2007, 13:05
میتونی MaskEdit بزاری و توی Mask اون بنویسی 00000000
اینجوری عدد میگیره.
البته خیلی راه های دیگه هم داره که این از همه ساده تره.
Arash_XL7710i_207
14-06-2007, 14:53
خيلي خيلي ممنون
Hamid_PaK
18-06-2007, 14:39
می تونید با کدنویسی در قسمت OnKeyPress هم یک ادیت باکس سفارشی درست کنید !


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

یا حق ...
F A R H A D
18-06-2007, 15:39
من این کد شما رو به کم ویرایش کردم. طوری که کاربر بتونه با کلید اینتر بین کنترل های فرم حرکت کنه و مهمتر اینکه بتونه از اعداد اعشاری هم استفاده کنه.



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
18-06-2007, 15:58
مهمتر اینکه بتونه از اعداد اعشاری هم استفاده کنه
کد که ضمیمه شد جهت آموزش بود ، براحتی قابل سفارشی شدن هست ( همون طور که شما این کار را انجام دادید ) .

یا حق ...