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!