كيف يمكن السماح في كتابة spaces مرة واحدة في Edit
#3
(31-12-2017, 07:34 PM)ALG2009 كتب : وعليكم السلام
ضع هذا الكود في الحدث OnKeyPress
كود :
procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key =#32 then ShowMessage('المسافه غير مقبوله'); end; end.

شكرا لك اريد فقط عدم السماح كتابتها اكثر من مرة او عدم كتابتها اكثر من مرة بين الجمل
الرد


الردود في هذا الموضوع
RE: كيف يمكن السماح في كتابة spaces مرة واحدة في Edit - بواسطة محمودد - 31-12-2017, 08:10 PM

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم