كيف يمكن السماح في كتابة spaces مرة واحدة في Edit

ادوات الموضوع

كيف يمكن السماح في كتابة spaces مرة واحدة في Edit

ALG2009 غير متصل

مبرمج نحو الاحتراف

المشاركات : 421
المواضيع 77
:
: 195
الإنتساب : Dec 2008

31-12-2017, 07:34 PM

(31-12-2017, 06:55 PM)محمودد كتب :
السلام عليكم

كيف بمكاني الغاء كتابة اكثر من

كود :
spaces في Edit او كتابة spaces مرة واحدة بين كل جملة

وعليكم السلام
ضع هذا الكود في الحدث OnKeyPress

كود :
procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key =#32 then
 ShowMessage('المسافه غير مقبوله');
end;

end.

« السابق | التالي »

الردود في هذا الموضوع

RE: كيف يمكن السماح في كتابة spaces مرة واحدة في Edit - بواسطة ALG2009 - 31-12-2017, 07:34 PM

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

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

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة