nur Ziffern in textBox

[shmia]

Delphi-Quellcode:

procedure MakeNumericControl(theControl: TWinControl);
begin
   Assert(Assigned(theControl));
   SetWindowLong(theControl.Handle, GWL_STYLE,
      GetWindowLong(theControl.Handle, GWL_STYLE) or ES_NUMBER);
end;

MakeNemericControl(Edit1);