Zahl in Edit Feld eingeben

[FAlter]

Hi,

Auch nicht unter Beispiele (Samples)?

Dann kuck mal unter Win32, da gibt es ein UpDown, wo du unter Associate z. B. ein Edit angeben kannst. Damit kann man den Eingabebereich auch beschränken, außerdem sieht das viel geiler aus.

Eventuell noch was kosmetisches, falls man doch ABC oder eine falschgroße Zahl* eingibt

Delphi-Quellcode:

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  Edit1.Text := IntToStr(UpDown1.Position);
end;

Zu dem Beitrag vor mir in dem roten Rahmen: Man sollte zumindest - noch erlauben.

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', #8, '+', '-']) then
    key := #0;
end;

Mfg
FAlter

*) Geiler Neologismus!