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

Как динамически создавать 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;

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

---

← →
anod ©   (2004-05-04 10:06) [2]

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

---

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

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



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