TUpDown min, max, and position

[Fluke026]

I have a form where the min and max of a TUpDown change according to the options selected. A user could set the position and then change the options making his position setting out of the range. I have discovered that Delphi automatically moves the position to the new min or max but the associated TEdit does not reflect this change. How can I make the TEdit show the correct position?

Example:

begin
   case rgOptions.ItemIndex of 
      0: begin
         updRoll.min:= 4; 
         updRoll.max:= 12;
      end;
      1: begin
         updRoll.min:= 4; 
         updRoll.max:= 20;
      end;
      2: begin
         updRoll.min:= 13; 
         updRoll.max:= 20;
      end;
      3: begin
         updRoll.min:= 15; 
         updRoll.max:= 20;
      end;
   end; {case}
end; {proc}

 

[StevenK]

One suggestion might be to to check the value within the TEdit control - if the value is smaller than the minimum then set it to the minimum-allowed value - and the same trick for the maximum - if the value is larger than the maximum then set the value to the maximum constraint.
Steve