Как включить scroollbars у TShellTreeView?

← →
Дмитрий Белькевич (2012-09-26 09:09) [0]

Собственно сабж...

← →
Дмитрий Белькевич (2012-09-26 09:18) [1]

Уточняю, что получается.
Мне нужен TShellTreeView с чекбоксами и со скроллбарами (или хотя бы со скроллингом вверх-вниз).

Скролл работает нормально, когда отключены чекбоксы. Включаю чекбоксы - отключается скролл. Скроллбаров, при этом, вообще никогда нет.

Скролл включаю так:

var dwStyle: DWord; begin dwStyle := GetWindowLong(ShellTreeView1.Handle, GWL_STYLE); dwStyle := dwStyle or WS_VSCROLL; SetWindowLong(ShellTreeView1.Handle, GWL_STYLE, dwStyle);

Чекбоксы так:

dwStyle := GetWindowLong(ShellTreeView1.Handle, GWL_STYLE); dwStyle := dwStyle or OBM_CHECKBOXES; SetWindowLong(ShellTreeView1.Handle, GWL_STYLE, dwStyle);

← →
Дмитрий Белькевич (2012-09-26 09:19) [2]

Да, Delphi 2010, если имеет значение.

← →
QAZ2 (2012-09-26 17:18) [3]

мош луче это делоть в переопределеном Create?

← →
Edgar_Wine (2012-09-27 15:11) [4]

Delphi 7. Скроллбары имеются по умолчанию, после куска кода остаются на месте, но не работают.

Попробуйте так:

const TVS_CHECKBOXES = $0100; var dwStyle: DWord; begin dwStyle:=GetWindowLong(ShellTreeView1.Handle, GWL_STYLE); dwStyle:=dwStyle Or TVS_CHECKBOXES or WS_VSCROLL; SetWindowLong(ShellTreeView1.Handle, GWL_STYLE, dwStyle); end;

← →
Дмитрий Белькевич (2012-09-30 11:13) [5]

БI>
> Попробуйте так:

Спасибо, почти идеально работает. Скроллбаров только не видно. Чекбоксы присутствуют, лист скролится.

← →
Edgar_Wine (2012-10-05 11:14) [6]

хмм.. У меня Win7/D7 - и их видно. Может в 2010 каких-то таких property добавили? А компонентов для "скинизирования" случайно не используется?

Как включить scroollbars у TShellTreeView? Найти похожие ветки