Текущий архив: 2002.10.14;
Скачать: CL | DM;

Вниз

скроллеры у TTreeView   Найти похожие ветки 

← →
ded_di ©   (2002-10-01 15:20) [0]

Как у TTreeView убрать полосы прокрутки? Спасибо.

---

← →
ded_di ©   (2002-10-02 16:22) [1]

?
и так пробовал
SetWindowLong(TreeView1.Handle,GWL_STYLE,(GetWindowLong(TreeView1.Handle,GWL_STYLE) and (not WS_HSCROLL)) and (not WS_HSCROLL));
и так

procedure TForm1.MyWndProc(var Message: TMessage);
var
newStyleStruct : PSTYLESTRUCT;
msg : TWMStyleChanging;
begin
if Message.Msg = WM_STYLECHANGING then
if Message.WParam = GWL_STYLE then
begin
msg:=TWMStyleChanging(Message);
newStyleStruct:=msg.StyleStruct;
if ((WS_HSCROLL and newStyleStruct.styleNew = WS_HSCROLL) or
(WS_VSCROLL and newStyleStruct.styleNew = WS_VSCROLL)) then
begin
if (WS_HSCROLL and newStyleStruct.styleNew = WS_HSCROLL) then
newStyleStruct.styleNew := newStyleStruct.styleNew and (not WS_HSCROLL);
if (WS_VSCROLL and newStyleStruct.styleNew = WS_VSCROLL) then
newStyleStruct.styleNew := newStyleStruct.styleNew and (not WS_VSCROLL);
msg.StyleStruct:=newStyleStruct;
TreeViewWindowProc(TMessage(msg));
end
else
TreeViewWindowProc(Message);
end
else
TreeViewWindowProc(Message)
else
TreeViewWindowProc(Message);
end;


---

← →
Song ©   (2002-10-02 16:33) [2]

ShowScrollBar()

---

← →
ded_di ©   (2002-10-02 16:55) [3]

Спасибо, преогромное.
Извините, что до сих пор не научился читать хелпы.

---

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

Текущий архив: 2002.10.14;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.024 c