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, например.

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