Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.06;
Скачать: CL | DM;

Вниз

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

 
Oddin ©   (2005-01-22 00:04) [0]

Вопрос значит такой. Есть 2 TrackBar"a и CheckBox нужно изменяя позицию любого из 2х TrackBar"ов если CheckBox.Cheked изменить позцию другого, сделать чтобы оба TrackBar"a передвигались одновременно в независимости от того какой из TrackBar"ов в данный момент меняет позицию. Заранее спасибо.


 
olookin ©   (2005-01-22 00:36) [1]

в TrackBar1.OnChange

if CheckBox1.Checked then begin
 TrackBar1.Position:=(Sender as TTrackBar).Position;
 TrackBar2.Position:=(Sender as TTrackBar).Position;
end;

Так?


 
Jel ©   (2005-01-22 00:37) [2]

Можно попробовать так. Обоим TrackBar-ам назначить один обработчик OnChange. В нем написать:


 If CheckBox1.Checked then begin
   if Sender = TrackBar1 then
     TrackBar2.Position := TrackBar1.Position
   else
     TrackBar1.Position := TrackBar2.Position;
 end;


Не слишком красиво, но работает. :)


 
Jel ©   (2005-01-22 00:45) [3]


> olookin ©   (22.01.05 00:36) [1]

Твой вариант красивее. :)


 
Oddin ©   (2005-01-22 00:49) [4]

А что значит Sender as TTrackBar?


 
oddin ©   (2005-01-22 01:18) [5]

А если так: значение TrackBar1.Мах 1го TrackBar"a неизвестно или постоянно меняется но это можно решить так trackbar1.Max := trackbar2.Max или как то подругому. Нужно меняя позицию trackbar2 изменить позицию TrackBar1 с неизвестным значением TrackBar1.Мах


 
Jel ©   (2005-01-22 02:14) [6]


> А что значит Sender as TTrackBar?

Это приведение типов. Не поленись, загляни в спраку, там это описано довольно подробно.


> Нужно меняя позицию trackbar2 изменить позицию TrackBar1
> с неизвестным значением TrackBar1.Мах

Если Max у обоих равны - будут равны и визуальные положения слайдеров при одинаковом Position. Если нет - нужно пересчитывать и зменять пропорционально. Если я правильно понял что ты хочешь получить.



Страницы: 1 вся ветка

Текущий архив: 2005.02.06;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.034 c
14-1105696379
uny
2005-01-14 12:52
2005.02.06
плоттер hp deskjet 450c - не хочет печатать..


1-1106514414
Den303
2005-01-24 00:06
2005.02.06
Как узнать общий объём логического диска?


14-1106123612
07BB:080Dh
2005-01-19 11:33
2005.02.06
Требования по программе


1-1106401615
infom
2005-01-22 16:46
2005.02.06
Каким образом лучше сохранять несколько потоков в один файл ?


1-1105983132
serko
2005-01-17 20:32
2005.02.06
CheckBox