Скачать: CL | DM;

Как бы из Сендера индекс текущего компонента получить   Найти похожие ветки 

← →
smartleds   (2008-03-21 22:12) [0]

Есть массив трэкбаров вот так описаны
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;
Хотелось бы в этом обработчике получить индекс текущего изменяемого трэкбара.

---

← →
{RASkov} ©   (2008-03-21 22:32) [1]

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

Используй Tag

---

← →
smartleds   (2008-03-21 23:16) [2]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c