إجبار Edit على كتابة الأرقام فقط من دون دالة OnKeyPress

[Agmcz]

عموما في XE6 موجودة ولا اعرف الإصدارات السابقة

دعم الإصدارات السابقة

PHP كود :

procedure SetNumbersOnly(Edit: TEdit; Value: Boolean);
begin
  if Value then
    SetWindowLong(Edit.Handle, GWL_STYLE, GetWindowLong(Edit.Handle, GWL_STYLE)
      or ES_NUMBER)
  else
    SetWindowLong(Edit.Handle, GWL_STYLE, GetWindowLong(Edit.Handle, GWL_STYLE)
      and not ES_NUMBER);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetNumbersOnly(Edit1, True);
end;