VPF::Зависимость между TrackBar'ми - Форум программистов

LordDon

Дата 30.11.2009, 22:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 10.11.2008

Репутация: нет
Всего: нет

Во общем есть три TrackBar'а, и переменная Energy равная 100.
Как можно сделать так чтобы Position у всех трех TrackBar'ов не превышал 100.
Т.е. если в первом сделали 10 то во втором можно будет установить мах 90.
Например:
TrackBar1.Position=90
TrackBar2.Position=10
TrackBar3.Position=0
или
TrackBar1.Position=50
TrackBar2.Position=25
TrackBar3.Position=25

amsoft

Дата 1.12.2009, 08:48 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 201
Регистрация: 17.10.2009
Где: KZ, Astana

Репутация: 3
Всего: 4

Код


procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Randomize;
TrackBar2.Max := Random(Energy - TrackBar1.Position);
TrackBar3.Max := Enegry - TrackBar1.Position - TrackBar2.Max;
end;

--------------------

"Кто бы ты ни был - не думай о себе слишком"Дельфин

LordDon

Дата 1.12.2009, 09:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 10.11.2008

Репутация: нет
Всего: нет

А при чем здесь рандом?

amsoft

Дата 1.12.2009, 09:49 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 201
Регистрация: 17.10.2009
Где: KZ, Astana

Репутация: 3
Всего: 4

надо чтобы максимальная величина всех Position'ов не превышала 100 (Energy)
в первом устанавливаем вручную
во втором я решил установить в случайном порядке, а в третьем уже добить по первым двум.

PS по условию у тебя не написано, в каком порядке должны меняться Max в остальных трекбарах
PPS это лишь образец

--------------------

"Кто бы ты ни был - не думай о себе слишком"Дельфин

LordDon

Дата 1.12.2009, 11:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 10.11.2008

Репутация: нет
Всего: нет

Утро вечера мудреней... Вообщем я сделал и вот что получилось:

Код


if (TrackBar1.Position+TrackBar2.Position+TrackBar3.Position)<=100 then
    begin
      Label6.Caption:=IntToStr(TrackBar1.Position);
      Energy:=100-(TrackBar1.Position*10+TrackBar2.Position+TrackBar3.Position);
      Label2.Caption:='Energy:'+IntToStr(Energy);
    end;

и так в каждом TrackBar'е

M
THandle

Модератор: используйте подсветку кода!

Это сообщение отредактировал(а) THandle - 1.12.2009, 13:47

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »