[Alegun]

Сообщение от crazyman

Да,но как остановить изменения эдитов при достижениии макс валуе или мин валуе

У самого SpinEdit изменения прекращаются автоматом, а для остальных требуется проверка

Код:

procedure TForm1.SpinEditUp(Sender: TObject);
begin
 SpinEdit1.Value:= SpinEdit1.Value + SpinEdit1.Increment;
  if not (SpinEdit1.Value = SpinEdit1.MaxValue) then
   begin
    ...
   end;
end;

procedure TForm1.SpinEditDown(Sender: TObject);
begin
 SpinEdit1.Value:= SpinEdit1.Value - SpinEdit1.Increment;
 if not (SpinEdit1.Value = SpinEdit1.MinValue) then
  begin
   ...
  end;
end;