Форум: "Основная";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];

Вниз

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

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

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

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

---

← →
Andy BitOff ©   (2004-05-03 03:57) [1]

Легко.

---

← →
Equillibrium ©   (2004-05-03 04:00) [2]

Как Напиши кусок Я примерно представляю Но с OnChenge не могу сделать

---

← →
Andy BitOff ©   (2004-05-03 04:46) [3]

procedure TForm1.FormCreate(Sender: TObject);
var
tr:TTrackBar;
begin
 tr:=TTrackBar.Create(Form1);
 tr.Parent:=Form1;
 tr.OnChange:=MyChangeTrackBar;
end;

procedure TForm1.MyChangeTrackBar(Sender: TObject);
begin
 Form1.Caption:=IntToStr(TTrackBar(sender).Position);
end;

---

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

Форум: "Основная";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];

Наверх

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