اگه کد داره کدش چيه؟
Printable View
اگه کد داره کدش چيه؟
میتونی MaskEdit بزاری و توی Mask اون بنویسی 00000000
اینجوری عدد میگیره.
البته خیلی راه های دیگه هم داره که این از همه ساده تره.
خيلي خيلي ممنون
می تونید با کدنویسی در قسمت OnKeyPress هم یک ادیت باکس سفارشی درست کنید !
یا حق ...کد:procedure Tfrm_main.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', #8]) then
Key := #0;
end;
من این کد شما رو به کم ویرایش کردم. طوری که کاربر بتونه با کلید اینتر بین کنترل های فرم حرکت کنه و مهمتر اینکه بتونه از اعداد اعشاری هم استفاده کنه.
نقل قول:
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;
پیروز باشید
کد که ضمیمه شد جهت آموزش بود ، براحتی قابل سفارشی شدن هست ( همون طور که شما این کار را انجام دادید ) .نقل قول:
مهمتر اینکه بتونه از اعداد اعشاری هم استفاده کنه
یا حق ...