ورود

View Full Version : قرار دادن یک Edit در که در آن فقط بتوان عدد وارد کرد


Lord
دوشنبه 30 آذر 1383, 01:50 صبح
با عرض سلام
خواهشمندم توضیح دهید که
چگونه میشود یک Edit در فرم قار داد که در آن فقط عدد وارد شود نه چیز دیگری
Delphi KDE
دوشنبه 30 آذر 1383, 02:20 صبح
اولا که قبلا مطرح شده بود و اگر میگشتی حتما پیدا کنی
بعدش هم اگه حوصله نوشتن و جستجو کردن نداری و دنبال یک برنامه اماده میگردی میتونی توی سایت www.torry.net چندید نمونه Edit با این قابلیت پیدا کنی
حاجی مسعود
دوشنبه 30 آذر 1383, 07:09 صبح
توی رخداد onpress ادیت بنویسید:


if not (key in ['0'..'9',#8] then
begin
key:=0;
messagebeep($ffff);
end;

#8 کد اسکی کلید backspace است.
Panje Tala
دوشنبه 30 آذر 1383, 13:29 عصر
با سلام


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8,#127,#13]) then
key:=#0;
end;
end.
aras12000
دوشنبه 30 آذر 1383, 13:33 عصر
می توانید هم به جای edit از MaskEdit استفاده کنید و مسک آن را مثل extention در قسمت sample masks قرار دهید
ghazal20
سه شنبه 15 دی 1383, 01:13 صبح
میتوانید مثل ماشین حساب دکمه های از 1 تا 9 بگذارید و خاصیت نوشتن در edit را هم false کنید تا فقط از طریق کلیدهای رقمی به edit وارد شودو البته خاصیت onclick همه کلیدها را یکی کن.
یعقوب
پنج شنبه 17 دی 1383, 20:41 عصر
سلام
ببخشید. اون کد

key:=#0;

معادل چیه؟


میتوانید مثل ماشین حساب دکمه های از 1 تا 9 بگذارید و خاصیت نوشتن در edit را هم false کنید تا فقط از طریق کلیدهای رقمی به edit وارد شودو البته خاصیت onclick همه کلیدها را یکی کن.
این روش فقط به درد برنامه ماشین حساب می خوره. راه حل های قبلی منطقی تر اند. :mrgreen:

:موفق: :موفق:
مهندس
پنج شنبه 17 دی 1383, 23:48 عصر
key:=#0;
سلام

این کد معادل این هست که فرض کنه کلیدی زده نشده :موفق: و چیزی نشون نده :)