| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

скроллеры у TTreeView [D5, Win95/98]

ded_di ©   (2002-10-01 15:20:00) 

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

---

ded_di   (2002-10-02 16:55:00) [1]

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

---

Song   (2002-10-02 16:33:00) [2]

ShowScrollBar()

---

ded_di   (2002-10-02 16:22:00) [3]

?
и так пробовал
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;


---

Наверх