[crazyman]

Есть несколько Edit с числовыми значениями и SpinEdit помогите обработать нажатия кнопок SpinEdit так, чтобы менялись значения Edit
Во вложении я сделал на обычных кнопках, можно ли сделать это же на SpinEdit или на UpDown???

[Alegun]

Для вашего примера, добавьте на форму SpinEdit1 и задайте в форм криэйт

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
 SpinEdit1.Button.OnUpClick:= Button1Click;
 SpinEdit1.Button.OnDownClick := Button2Click;
end;

[crazyman]

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

Для вашего примера, добавьте на форму SpinEdit1 и задайте в форм криэйт

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
 SpinEdit1.Button.OnUpClick:= Button1Click;
 SpinEdit1.Button.OnDownClick := Button2Click;
end;

Хотелось бы реализовать используя только спинэдит т.е. обработать нажатия только этих двух маленьких кнопочек

[Alegun]

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

Хотелось бы...обработать нажатия только этих двух маленьких кнопочек

Так удалите баттоны, а их обработчики оставьте, делов-то

[crazyman]

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

Так удалите баттоны, а их обработчики оставьте, делов-то

Почему не меняется валуе спинэдита? И заданые макс и мин валуе не работают?

[Alegun]

Не меняется, правильно, поскольку переназначаются стандартные обработчики, поэтому требуется это делать самостоятельно, вот примерный код после издевательств над вашей сборкой

Код:

...
SpinEdit1: TSpinEdit;
    procedure SpinEditUp(Sender: TObject);
    procedure SpinEditDown(Sender: TObject);
...
procedure TForm1.SpinEditUp(Sender: TObject);
begin
SpinEdit1.Value:= SpinEdit1.Value+1;
Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);
Edit2.Text:=IntToStr(StrToInt(Edit2.Text)+1);
Edit3.Text:=IntToStr(StrToInt(Edit3.Text)+1);
Edit4.Text:=IntToStr(StrToInt(Edit4.Text)+1);
end;

procedure TForm1.SpinEditDown(Sender: TObject);
begin
SpinEdit1.Value:= SpinEdit1.Value-1;
Edit1.Text:=IntToStr(StrToInt(Edit1.Text)-1);
Edit2.Text:=IntToStr(StrToInt(Edit2.Text)-1);
Edit3.Text:=IntToStr(StrToInt(Edit3.Text)-1);
Edit4.Text:=IntToStr(StrToInt(Edit4.Text)-1);
end;

а maxVal и minVal работают в любом случае

[crazyman]

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

Не меняется, правильно, поскольку переназначаются стандартные обработчики, поэтому требуется это делать самостоятельно, вот примерный код после издевательств над вашей сборкой

Код:

...
SpinEdit1: TSpinEdit;
    procedure SpinEditUp(Sender: TObject);
    procedure SpinEditDown(Sender: TObject);
...
procedure TForm1.SpinEditUp(Sender: TObject);
begin
SpinEdit1.Value:= SpinEdit1.Value+1;
Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);
Edit2.Text:=IntToStr(StrToInt(Edit2.Text)+1);
Edit3.Text:=IntToStr(StrToInt(Edit3.Text)+1);
Edit4.Text:=IntToStr(StrToInt(Edit4.Text)+1);
end;

procedure TForm1.SpinEditDown(Sender: TObject);
begin
SpinEdit1.Value:= SpinEdit1.Value-1;
Edit1.Text:=IntToStr(StrToInt(Edit1.Text)-1);
Edit2.Text:=IntToStr(StrToInt(Edit2.Text)-1);
Edit3.Text:=IntToStr(StrToInt(Edit3.Text)-1);
Edit4.Text:=IntToStr(StrToInt(Edit4.Text)-1);
end;

а maxVal и minVal работают в любом случае

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

[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;