Edit Feld begrenzen mit bestimmten Werten

[shmia]

Du könntest folgende Prozedure aufrufen, dann kanst du nur noch Ziffern eingeben.

Delphi-Quellcode:

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

Du setzt MaxLength von deinem Editcontrol auf 3.