Hi
Ich verstehe nicht, warum ich
0 in SpinEdit eintippen kann,
obwohl SpinEdit.MinValue=
1
Nur wenn SpinEdit1 den Focus verliert, dann wird der Value von 0 zu 1 verändert
Ich darf in SpinEdit kein 0 eintippen. Ich habe versucht inEvent Onchange :
Delphi-Quellcode:
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
if (SpinEdit1.Value>0) and (SpinEdit1.Text<>'') then begin
SpinEdit2.Text:=IntToStr(Trunc(x / SpinEdit1.Value));
end else begin
exit; end;
end;
Trotzdem bekomme ich Fehler ! wenn ich
0 eintippe oder den Wert in SpinEdit1 lösche !