Текущий архив: 2004.01.16;
Скачать: CL | DM;

Вниз

Scroll Bar & KOL   Найти похожие ветки 

← →
Bystander   (2003-05-03 13:49) [0]

Доброго времени суток.
Представилась мне возможность попробовать что-то сделать в MCK. Раньше, при помощи VCL я мог бросить на форму 2 контрола - Edit и ScrollBar. При этом так же приписал на OnChange у скролла такой код:

procedure TForm1.ScrollBar1Change(Sender: TObject);
var CurrPos:Integer;
( CurrPos,RetPosition) Доброго времени суток.
Представилась мне возможность попробовать что-то сделать в MCK. Раньше, при помощи VCL я мог бросить на форму 2 контрола - Edit и ScrollBar. При этом так же приписал на OnChange у скролла такой код:

procedure TForm1.ScrollBar1Change(Sender: TObject);
var CurrPos:Integer;
RetPosition:String;
begin
CurrPos:=ScrollBar1.Position;
Str(CurrPos,RetPosition);
Edit1.Text:=RetPosition;
end;
Тоесть всё банально - скролл меняет значение Position и Edit это число отображает.

Используя же MCK я не нашёл этого скролла - в VCL он есть, в MCK его нету. Как быть ?

---

← →
Gandalf ©   (2003-05-03 15:02) [1]

> Используя же MCK я не нашёл этого скролла - в VCL он есть,
> в MCK его нету. Как быть ?


В MCK нет, в KOL есть:

NewScrollBar.

---

← →
Кладов   (2003-05-04 10:24) [2]

у любого контрола есть скроллбар, доступный функциями API. GetScrollBarInfo, например.

---

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

Текущий архив: 2004.01.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.036 c