الدرس السادس في الدلفي : تحكم في حروف الإدخال من لوحة المفاتيح

السلام عليكم في هذا الدرس سأشرح طريقة تحكم في نوع الحروف الإدخال وجعل المستعمل يكتب بـ حروف معينة او أرقام فقط او كيفية تلاعب بهذه الحرف عند كتابة بحرف الصغيرت تصبح كبيرة  او العكس :
ملاحظة هنا اتكلم على مكونات التي يمكن كتابة فيها هنا ساستعمل كمثال : Edit
كل معليكم هو ذهاب الى قائمة الاحداث Events تم نذهب الى OnKeyPress نضغط مرتين كما في الصورة التالية :

ثم نكتب احد الاكواد التالية:

أولا :كود الذي يسمح  بـ الكتابة بالأحروف الصغيرة  فقط:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (key in ['a'..'z']) OR (key = #8) then begin key:=key; end else begin key:=#0; end; end;

ثانيا : كود  الذي يسمح  بـ كتابة بالأحرف الكبيرة فقط :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (key = #8) OR (key in ['A'..'Z']) then begin key:=key; end else begin key:=#0; end; end;

ثالثا : كود  الذي يسمح  بـ كتابة بالأحرف الكبيرة و صغيرة مع مسافة فقط :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (key in ['a'..'z']) OR (key = #8) OR (key in ['A'..'Z']) or (key = #32 )then begin key:=key; end else begin key:=#0; end; end;

رابعا : كود الذي يسمح  بـ كتابة الأرقام فقط

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (key in ['0'..'9']) OR (key = #8) then begin key:=key; end else begin key:=#0; end; end;

خامسا : كود  الذي يسمح  بـ كتابة الارقام مع الفاصلة فقط

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key in ['0'..'9'] then key := key else If (Key=',')or(key=#08) Then key := key else if (Key='.') then key := ',' else key := #0; end;

هذا الفيديو لشرح أكثر :