| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Scroll Bar & KOL
Bystander © (2003-05-03 13:49:00)Доброго времени суток.
Представилась мне возможность попробовать что-то сделать в 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 его нету. Как быть ?
Кладов (2003-05-04 10:24:00) [1]
у любого контрола есть скроллбар, доступный функциями API. GetScrollBarInfo, например.
Gandalf (2003-05-03 15:02:00) [2]
> Используя же MCK я не нашёл этого скролла - в VCL он есть,
> в MCK его нету. Как быть ?
В MCK нет, в KOL есть:
NewScrollBar.
| |
