سؤال فى الديلفى (كيف نجعل الكتابة عربي فقط)

السلام عليكم

قد يساعدك الكود التالي.

وفقك الله

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key in(['a'..'z','A'..'Z','0'..'9']) then key:=#0;
end;

وحتى لا تنسى تغير اللغة قم بوضع الكود التالي في ملف المصدر للبرنامج وسيكتب برنامجك عند التشغيل بالغة العربية فقط

begin
  Application.BiDiKeyboard:='00000401';
  Application.Initialize;

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