Скачать: CL | DM;

СкроллБар в 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;


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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.046 c