Добавление компонента в run-time

← →
Vint44 © (2002-09-04 12:23) [0]

Здраствуйте! Люди подскажите как создать компонент типа TTrackBar
в run-time в панели. Я делаю так:

procedure TfmMain.Button1Click(Sender: TObject);
var i : integer;
begin
Track:=TTrackBar.Create(Panel1);
Track.Top:=1;
Track.Left:=1;
Track.Height:=10;
Track.Width:=100;
Track.Visible:=True;
end;

И ничего не появляется.

← →
MBo © (2002-09-04 12:24) [1]

Track.Parent:=Panel1;

← →
Vint44 © (2002-09-04 12:34) [2]

Спасибо, помогло.

← →
Vint44 © (2002-09-04 16:48) [3]

Еще один момент. Как вызывать события этого созданного в run-time TTrackBar компонента?

procedure TfmMain.TrackChange(Sender: TObject);
begin
------
------
------
end;
------
------
------
Track.OnChange:=TrackChange

Спасибо

Добавление компонента в run-time Найти похожие ветки