СкроллБар в ListBox

← →
XfroSt (2006-04-26 16:29) [0]

Есть у меня заполенный ListBox, я выбираю нужный его элемент и выделяю его
ListBox.Selected[i] := true;

Но часто нужный элемент оказывается в невидимой области, т.е. что бы до него добрать надо двигать ScrollBar.

Вопрос можно ли как то в ListBox ещи пододвинуть скроллбар так что бы нужный элемент стал виден ??

Спасибо.

← →
MBo © (2006-04-26 16:36) [1]

TopIndex

← →
XfroSt (2006-04-26 16:58) [2]

хэх ... я использую немного дургой компонент не ListBox а FlatListBox а там этого нет ... жаль ...

А по другому ни как ?

← →
MBo © (2006-04-26 17:21) [3]

Посмотри в исходниках Listbox, как это реализовано, и проверь, работает ли для твоего компонента

← →
XfroSt (2006-04-27 09:57) [4]

Добавил в исходники новой компоненты из ListBox
function TFlatListBox.GetTopIndex: Integer; begin Result := SendMessage(Handle, LB_GETTOPINDEX, 0, 0); end; procedure TFlatListBox.SetTopIndex(const Value: Integer); begin if GetTopIndex <> Value then SendMessage(Handle, LB_SETTOPINDEX, Value, 0); end;

ну и
property TopIndex: Integer read GetTopIndex write SetTopIndex;

И ни чег причем когда пишу
FlatLB.TopIndex := 10; Flatlb.Selected[10] := true;

То даже не выделяет .. стоит убрать
FlatLB.TopIndex := i;

То выделяет... как думаете в чем может быть загвоздка ?

СкроллБар в ListBox Найти похожие ветки