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

← →
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]

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

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