Как динамически создавать TrackBar (ползунок)

← →
Equillibrium © (2004-05-03 03:03) [0]

Мне нужно динамически создавать не только сам TrackBar но и его свойство ONChenge Допустим Кликаеш на форме мышкой создаётся TrackBar и в Эдит пишет изменяемые значения
И таких TrackBar-в должно быть много

Как думаете Реально создать

← →
Tano © (2004-05-03 11:18) [1]

TForm = class
...
procedure TrackBarChange(Sender: TObject);
...
end;

procedure TForm.TrackBarChange(Sender: TObject);
begin
//обработчик
(Sender as TTrackBar).Tag - номер скрола, который тронули
end;

//создание динамических объектов
var
Tracks :array[1..n] of TTrackBar;
begin
for i:=1 to n do
begin
Tracks[i] := TTrackBar.Create(self);
with Tracks[i] do
begin
Parent := Form1; //любой Control как родитель и контейнер
Tag := i; //так удобно отличать скролы по номеру
Width:=???; //установка различных параметров по вкусу
...
OnChange := TrackBarChange;
end;
end;

если неточности, простите, писал здесь.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/trackbar/reflist.asp

Как динамически создавать TrackBar (ползунок) Найти похожие ветки