SpinEdit

← →
ZV © (2006-05-27 00:52) [0]

Имеется два SpinEdit. При старте программы в SpinEdit 1 внесено число(пример300).в SpinEdit2 (0).Как сделать так чтобы при увеличении значения SpinEdit2 уменьшалось значение в SpinEdit1. и на оборот. Короче надо чтобы значение перетекало, но только при изменении SpinEdit2.При изменении значения в SpinEdit1 значение SpinEdit2 должно обнуляться

← →
Rial © (2006-05-27 00:58) [1]

В
SpinEdit1 - > OnChange
обнуляешь второй спин, в
SpinEdit2 - > OnChange

SpinEdit1.Value(?) := SpinEdit2.Value ;

← →
unknown © (2006-05-27 01:04) [2]

не понятно, что значит > сделать так чтобы при увеличении значения SpinEdit2
Увеличении изначального значения - сравнение с какой-то константой?
Или при изменении значения, которое было при входе в SpinEdit2 ? Или...
В общем вот:
procedure TForm1.SpinEdit1Change(Sender: TObject); begin if ActiveControl = Sender then SpinEdit2.Value := 0; end; procedure TForm1.SpinEdit2Change(Sender: TObject); begin if ActiveControl = Sender then //сюда стоит добавить условие сравнения и все. SpinEdit1.Value := SpinEdit1.Value - 1; end;

← →
Rial © (2006-05-27 01:17) [3]

Да да, не подумал, накосичил.
Такой расклад как у меня заставит сильно задуматься прогу...

Нужно действительно флаг, где именно происходит изменение.

← →
ZV © (2006-05-27 02:06) [4]

Да, при изменении значения, которое было при входе в SpinEdit2 .Так как написал ты не получается .только отнимает а наоборот не получается. Мне нужно :пример
SpinEdit1=500 SpinEdit2=0 (такие значения при старте программы)
SpinEdit2=200 SpinEdit1=300(после изменения значения SpinEdit2)
SpinEdit2=400 SpinEdit1=100(и так далее)
SpinEdit2=50 SpinEdit1=450
Значение нужно перетягивать туда и обратно при помощи SpinEdit2

ZV © (27.05.06 2:06) [4]
Да, при изменении значения, которое было при входе в SpinEdit2 .Так как написал ты не получается .только отнимает а наоборот не получается.

А ты напиши так, чтобы получалось (еще не забудь предусмотреть возможность ручного ввода значения, и обработать связанные с этим возможные исключения).

Достаточно одного SpinEdit1, у которого установить ещё и MaxValue

SpinEdit1.MaxValue - SpinEdit.Value и есть то, что хочешь показать в SpinEdit2, хотя для этого достаточно и Label

SpinEdit Найти похожие ветки