Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

smartleds © (2008-03-23 18:15:00)
обработчик 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:00) [1]
вопрос решен
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1206126773&n=18
smartleds (21.03.08 23:16) [2]
> Спасибо получилось!
незачем повторяться

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »