Rübenjagd

[Cöster]

Zitat von "hille[code=delphi:

procedure Beenden1Click(...);
begin
...
if SpinEdit1.Text>20 then Spinedit1.Text:=20;
if SpinEdit1.Text<5 then Spinedit1.Text:=5;
...
end;
[/code]

Dann sieht der Anwender aber nicht sofort, dass nur Zahlen von 5 bis 20 gehen. Statt die beiden If-Abfragen in Beenden1Click aufzurufen, würd ich sie im OnChange-Ereignis des SpinEdits aufrufen. Dann kann man gar nicht erst eine Zahl größer als 20 reinschreiben.