|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как обьединить два трак бара галочкой? И левый правый звук?
Как обьединить два трак бара галочкой?И левий правий звук?
|
#2
|
||||
|
||||
если я правильно понял вопрос про TrackBar, то вот так (событие OnChange обоих TrackBar'ов):
Код:
procedure TForm1.TrackBar1Change(Sender: TObject); begin if CheckBox1.Checked then TrackBar2.Position := TrackBar1.Position; end; procedure TForm1.TrackBar2Change(Sender: TObject); begin if CheckBox1.Checked then TrackBar1.Position := TrackBar2.Position; end; а на счет "левий правий звук" - это смотря каким компонентом для звука пользуетесь. Коли навчався в школі я - в мені росли мозгЫ. КудИж вони поділися? гы-гы гы-гы гы-гы... ICQ: 593977748 Nick: Marvel |
#3
|
|||
|
|||
Гражданину:=TMarvelu1
Для звука вибрал два ТракБара(Левий и Правий).Если галачку неставить то они двигаюца не вместе ,но когда поставить то вместе и что би звук невлиял на другие програми !
Япросто хочу зделать проигриватель типа винампа Еще робота предстоит . Ивобще хочу делать невозможное ТЕОРЕТИЧЕСКИ!!! |
#4
|
||||
|
||||
ну про то чтобы они двигались вместе по галочке, это я вам написал уже выше
Коли навчався в школі я - в мені росли мозгЫ. КудИж вони поділися? гы-гы гы-гы гы-гы... ICQ: 593977748 Nick: Marvel |
#5
|
|||
|
|||
Ща буду разбираца ,спасиба
|
#6
|
|||
|
|||
Вишло ето несложно Спасиба
Ачтоби по нажатию они недвигались. |
#7
|
||||
|
||||
ну ёптить, нажми на CheckBox1 и не будут двигаться. Там условие такое, если на CheckBox1 стоит галочка, то двигаются вместе, если не стоит - не двигаются куда уж проще )
Коли навчався в школі я - в мені росли мозгЫ. КудИж вони поділися? гы-гы гы-гы гы-гы... ICQ: 593977748 Nick: Marvel |
#8
|
|||
|
|||
ЧТОБ ВОБЩЕ ИХ КЛИНИЛО
|
#9
|
||||
|
||||
Цитата:
Коли навчався в школі я - в мені росли мозгЫ. КудИж вони поділися? гы-гы гы-гы гы-гы... ICQ: 593977748 Nick: Marvel |
#10
|
|||
|
|||
Цитата:
По нажатию на что? вообщем в обработку нажатия на что то впиши например так: Код:
procedure TForm1.Button2Click(Sender: TObject); begin TrackBar1.Enabled:= not TrackBar1.Enabled; end; |