نوشتن فقط اعداد در Edit

[Reza_kh]

چطوری می شه در Edit فقط عدد نوشت و حروف رو نشه ؟

[B_YAGHOBI]

میتوانید از TMaskEdit استفاده کنید.

اگر الزاما از TEdit میخواهید استفده کنید خودتان میبایست کلیدهای وارد شده را در OnKeyDown
کنترل کنید که حروف وارد نشوند

را دیگرش این است که یک کامپوننت TUpDown در کنار آن قرار دهید و پروپرتی Associate آنرا Edit
خودتان قراردهید.

[m-khorsandi]

کنترل edit
جدا کننده ارقام
آقا چه جوری میشود در یک کادر متن فقط عدد وارد کرد؟

اگه قبل از ایجاد تاپیک جستجو کنید چند تا تاپیک دیگه در این مورد پیدا میکنید.

[babak_delphi]

در OnKeyPress این کد رو بنویسید:
if Pos(Key,#13#8'0123456789') = 0 then
Key := #0;

[mzjahromi]

در OnKeyPress این کد رو بنویسید:
if Pos(Key,#13#8'0123456789') = 0 then
Key := #0;

این مورد درسته و تاحدودی کار رو انجام میده ولی برای مواردی که از Copy و Paste استفاده بشه عملی نیست%

[babak869]

این مورد درسته و تاحدودی کار رو انجام میده ولی برای مواردی که از Copy و Paste استفاده بشه عملی نیست%

درسته اما کپی و Paste رو چه با راست کلیک و چه با Ctrl+V میشه کنترل کرد.برای اولی یه PopupMenu به Edit نسبت میدی و در رویداد OnChange اون Edit چک میکنی اگه کلید Ctrl+V زده شد فلان پیغام رو بده یا هیچ عکس العملی انجام نده
موفق باشید

[mzjahromi]

درسته اما کپی و Paste رو چه با راست کلیک و چه با Ctrl+V میشه کنترل کرد.برای اولی یه PopupMenu به Edit نسبت میدی و در رویداد OnChange اون Edit چک میکنی اگه کلید Ctrl+V زده شد فلان پیغام رو بده یا هیچ عکس العملی انجام نده
موفق باشید

درسته ولی بهتر نیست بجای اینکه کاربر رو محدود کنیم مشکل خودمون رو حل کنیم.
میتونیم از OnChange استفاده کنیم

[davoodmz]

با سلام
با اجازه دوستان
این کد در رویداد 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 استفاده کنید
----------------
البته من این کد را از خود سایت محترم برنامه نویس پیدا کردم فکر می کنم کار آقا بابک باشد یا آقای جهرمی یادم نیست به هر حال دست همه درد نکند
داود