چطوری می شه در Edit فقط عدد نوشت و حروف رو نشه ؟
Printable View
چطوری می شه در Edit فقط عدد نوشت و حروف رو نشه ؟
میتوانید از TMaskEdit استفاده کنید.
اگر الزاما از TEdit میخواهید استفده کنید خودتان میبایست کلیدهای وارد شده را در OnKeyDown
کنترل کنید که حروف وارد نشوند
را دیگرش این است که یک کامپوننت TUpDown در کنار آن قرار دهید و پروپرتی Associate آنرا Edit
خودتان قراردهید.
کنترل edit
جدا کننده ارقام
آقا چه جوری میشود در یک کادر متن فقط عدد وارد کرد؟
اگه قبل از ایجاد تاپیک جستجو کنید چند تا تاپیک دیگه در این مورد پیدا میکنید.
در OnKeyPress این کد رو بنویسید:
if Pos(Key,#13#8'0123456789') = 0 then
Key := #0;
این مورد درسته و تاحدودی کار رو انجام میده ولی برای مواردی که از Copy و Paste استفاده بشه عملی نیست%نقل قول:
نوشته شده توسط babak_delphi
درسته اما کپی و Paste رو چه با راست کلیک و چه با Ctrl+V میشه کنترل کرد.برای اولی یه PopupMenu به Edit نسبت میدی و در رویداد OnChange اون Edit چک میکنی اگه کلید Ctrl+V زده شد فلان پیغام رو بده یا هیچ عکس العملی انجام ندهنقل قول:
نوشته شده توسط mzjahromi
موفق باشید
درسته ولی بهتر نیست بجای اینکه کاربر رو محدود کنیم مشکل خودمون رو حل کنیم.نقل قول:
نوشته شده توسط babak869
میتونیم از OnChange استفاده کنیم
با سلام
با اجازه دوستان
این کد در رویداد onchange
var i:integer;
s:string;
begin
for i:=1 to length(edit1.Text) do
if (edit1.Text[i]<'0') or (edit1.Text[i]>'9') then
begin
s:=edit1.Text;
delete(s,i,1);
edit1.Text:=s;
suiMessageDialog1.ShowModal;
if length(edit1.Text)>0 then
begin
edit1.SelectAll;
edit1.CutToClipboard;
edit1.PasteFromClipboard;
end;
end;
end;
از تگ code استفاده کنید
----------------
البته من این کد را از خود سایت محترم برنامه نویس پیدا کردم فکر می کنم کار آقا بابک باشد یا آقای جهرمی یادم نیست به هر حال دست همه درد نکند
داود