يه سوال در مورد ورودي صفحه کليد...

چه کدي بايد بنويسم که فقط کليد هاي / و * و - و + . و 1234567890 در يه Edit نوشته بشه و بقيه کليد ها تايپ نشه.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9',#13,'+','-','*','/',#8,'.','='])then
key:=#0;
end;


این کد حتما به درد شما می خوره

سلام

ببخشید ....

اما لطفآ بزارید توی تگ کد... [ C O D E ] [/C O D E] (جز قوانین انجمن دلفی)...

این کد رو توی کتابی خونده بودم... و به یکی این کد رو دادم اما گفت جواب نمیده...

حالا هم تست کردم... جواب داد...

این هم کد as13851365 جان که گذاشتم تو کد برای راحت خواندن ...

کد:

---

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9',#13,'+','-','*','/',#8,'.','=']) then
key := #0;
end;

---

موفق باشید

ممنونم اقايون