| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как бы из Сендера индекс текущего компонента получить [D7, XP]

smartleds ©   (2008-03-21 22:12:00) 

Есть массив трэкбаров вот так описаны
var  FTrackBarSave:TTrackBar; переменнная где хранится текущий трэкбар
var   ArrOfTrackBar:array of Ttrackbar; массив трэк баров

ArrOfTrackBar[m]:=TTrackBar.Create(self);
ArrOfTrackBar[m].Parent:=Form1;
ArrOfTrackBar[m].Orientation:=trVertical;
ArrOfTrackBar[m].min:=0;
ArrOfTrackBar[m].max:=255;
ArrOfTrackBar[m].Position:=128;
ArrOfTrackBar[m].Width:=30;
ArrOfTrackBar[m].Height:=150;
ArrOfTrackBar[m].OnChange := TrackBar1Change;

И есть обработчик события OnChange

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
with (Sender as TTrackBar) do begin
 FTrackBarSave := Sender as TTrackBar;
                           end;
end;
Хотелось бы в этом обработчике получить индекс текущего изменяемого трэкбара.

---

smartleds   (2008-03-21 23:16:00) [1]

Спасибо получилось!

---

{RASkov}   (2008-03-21 22:32:00) [2]

> [0] smartleds   (21.03.08 22:12)
> Хотелось бы в этом обработчике получить индекс текущего
> изменяемого трэкбара.

Используй Tag

---

Наверх