Текущий архив: 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
