Форум: "Начинающим";
Текущий архив: 2006.06.11;
Скачать: [xml.tar.bz2];
Вниз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
← →
Loginov Dmitry © (2006-05-27 09:21) [5]ZV © (27.05.06 2:06) [4]
Да, при изменении значения, которое было при входе в SpinEdit2 .Так как написал ты не получается .только отнимает а наоборот не получается.
А ты напиши так, чтобы получалось (еще не забудь предусмотреть возможность ручного ввода значения, и обработать связанные с этим возможные исключения).
← →
ЮЮ © (2006-05-27 10:41) [6]Достаточно одного SpinEdit1, у которого установить ещё и MaxValue
SpinEdit1.MaxValue - SpinEdit.Value и есть то, что хочешь показать в SpinEdit2, хотя для этого достаточно и Label
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.06.11;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.013 c