دخول

**kachwahed**

وعليكم السلام ورحمة الله وبركاته
الأخ m_m_saad أهلا ومرحبا بك في المنتدى
السؤال سبق طرحه:
http://www.delphi4arab.net/forum/showthread.php?tid=5
http://www.delphi4arab.net/forum/showthr...p?tid=3040
الأرقام دون فاصلة:

كود :
SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);

أعداد عشرية:

كود :
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (not (Key in ['0'..'9', DecimalSeparator, #8]))
  or ((Key = DecimalSeparator) and (Pos(DecimalSeparator, (Sender as TEdit).Text) > 0))
  then Key := #0;
end;

لا تنسى استخدام البحث
بالتوفيق.

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