چگونه در یک Edit فقط حروف یا فقط عدد بنویسیم؟

[سيد مجتبي هاشمي]

سلام. دوستان عزیز کسی میدونه چه طور میشه وقتی مکان نما داخل یک Edit قرار میگیره داخل اون Edit فقط حروف یا فقط عدد بتونیم بنویسیم.

[hp1361]

سلام

می تونی از کد زیر استفاده کنی که تنها عدد وارد بشه



procedure TFormMain.EditMSumKeyPress(Sender: TObject; var Key: Char);
const
AllowedChars: string = '1234567890';
var
i: Integer;
Ok: Boolean;
begin
i := 0;
Ok := False;
{ If you erase next line, user won't be able to type backspace }
if Key = #8 then Ok := True;
repeat
i := i + 1;
if Key = AllowedChars[i] then Ok := True;
until (Ok) or (i = Length(AllowedChars));
if not Ok then Key := #0;
end;



با تغییر کاراکتر های موجود در AllowedChars میتونی فیلترت رو تغییر بدی و حروف رو هم در نظر بگیری

موفق باشی

[Hsimple11]

میتونید در رویداد OnKeyPress اون از عمل بعضی کلیدها جلوگیری کنید. مثلا این کد فقط اجازه ورود عدد را میدهد :


if ((Key<'0') and (Key>#31))or (Key>'9') then
Key:=#0;

[سيد مجتبي هاشمي]

میتونید در رویداد OnKeyPress اون از عمل بعضی کلیدها جلوگیری کنید. مثلا این کد فقط اجازه ورود عدد را میدهد :


if ((Key<'0') and (Key>#31))or (Key>'9') then
Key:=#0;

ببخشید #31 و #0 چه کاری انجام میده؟

[vcldeveloper]

دوست عزیز، قبل از ایجاد تاپیک جدید، جستجو کنید. امروز هر تاپیکی که ایجاد کردید، همه تکراری بودند و قبلا جواب داده شده بودند. سوال همین تاپیک ده ها بار در این تالار جواب داده شده!