| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как динамически создавать TrackBar (ползунок) [D7, Win95/98, WinME, NT4, Win2k, WinXP]

Equillibrium ©   (2004-05-03 03:03:00) 

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

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

---

anod   (2004-05-04 10:06:00) [1]

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

---

Tano   (2004-05-03 11:18:00) [2]

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;

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

---

Наверх