20-11-2020, 01:50 PM
(20-11-2020, 10:18 AM)salim488 كتب : هل هناك كود يمنع كتابة النص في edit
السؤال الثاني اريد كود يمنع كتابة الارقام في edit
وعليكم السلام
الإجابة على السؤال الأول .أما السؤال الثاني يمكن إستنتاجه من الكود الأول
كود :
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in [#8, '0'..'9']) then // #8تعني Backspace لتستطيع الحذف
begin
ShowMessage('يجب إدخال الأرقم فقط');
// Key := #0;
end;
end;