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

Вниз

Создал массив Трэк баров , подскажите как создать один   Найти похожие ветки 

 
smartleds   (2008-03-23 18:15) [0]

обработчик TrackBar1Change Который бы мог обрабатывать весь массив трэк баров.
Раньше я делал каждому трэкбару из массива , собственный обработчик,
но сейчас трэкбаров стало 512 штук , и очень неудобно писать для каждого свой обработчик.
Я планирую написать один обработчик , и в этом обработчике при помощи tag определять какой трэк бар используется и делать соответствующие действия.
Вот как объявлен и инициализирован массив трэк баров.

var   ArrOfTrackBar:array of Ttrackbar;
SetLength(ArrOfTrackBar,512);
ArrOfTrackBar[i]:=TTrackBar.Create(self);
ArrOfTrackBar[i].Parent:=Form1;
ArrOfTrackBar[i].Orientation:=trVertical;
ArrOfTrackBar[i].min:=0;
ArrOfTrackBar[i].max:=255;
ArrOfTrackBar[i].Position:=128;
ArrOfTrackBar[i].Width:=30;
ArrOfTrackBar[i].Height:=150;
ArrOfTrackBar[i].Left:=X2;
ArrOfTrackBar[i].Top:=Y2;
ArrOfTrackBar[i].Tag := i;
ArrOfTrackBar[i].OnChange := TrackBar1Change; Адрес обработчика OnChange


 
sniknik ©   (2008-03-23 18:25) [1]

вопрос решен
http://delphimaster.net/view/2-1206126773/
smartleds   (21.03.08 23:16) [2]
> Спасибо получилось!
незачем повторяться



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

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

Наверх




Память: 0.46 MB
Время: 0.016 c
2-1206460637
QAT
2008-03-25 18:57
2008.04.20
Битовые флаги


15-1204817355
Kolan
2008-03-06 18:29
2008.04.20
Что прочесть, чтобы работать с IB на мин уровне?


2-1206715069
TerminalHead
2008-03-28 17:37
2008.04.20
Нужна помощь! получение сигнала из COM порта для новичка,


2-1206701658
Ramzes001
2008-03-28 13:54
2008.04.20
Ошибка


2-1206716738
Kolan
2008-03-28 18:05
2008.04.20
Не удается присвоить значение полю структуры в объекте.