Как избавиться от скролинга в TreeView`e?

← →
denik (2004-02-27 10:23) [0]

Навсегда.

← →
[lamer]Barmaglot © (2004-02-27 10:29) [1]

ShowScrollBar(treeview1.handle, SB_Both, false);

← →
alless © (2004-02-27 10:35) [2]

eshe nado pisati:
gdeto v obiavlenie formi:
procedure DBGridWndProc(var Message:TMessage);

var GridMetod: TWndMethod;

posle implementation:

procedure TForm1.DBGridWndProc(var Message :TMessage);
begin
ShowScrollBar(treeview1.Handle,SB_BOTH,FALSE);
GridMetod(Message);
end;

← →
denik (2004-02-27 10:48) [3]

> [lamer]Barmaglot ©

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

← →
alless © (2004-02-27 10:51) [4]

nu ia tebe vishe pisal cto eshe nado dobavleati v tvoiei programme. Esli vse pravilino pisal to ono ne doljno poiavitsea

← →
denik (2004-02-27 11:03) [5]

А причем тут DBGrid

← →
alless © (2004-02-27 11:07) [6]

da ato prosto nazvanie proceduri, ti mojeshi ei dati kakoie nazvanie ti hoceshi. Ia vzeal iz odnogo primera, nebilo vremeni ee pereimennovati. A kak, rabotaiet?

← →
denik (2004-02-27 12:47) [7]

> alless ©

Не работает!

← →
_none_ © (2004-02-27 12:55) [8]

to [denik]
я долго парился на эту тему, потом плюнул и наложил маску на окно treeview -)

но я рекомендую не возиться с ms treeview а пользовать virtualtreeview от майка лишке

← →
denik (2004-02-27 14:01) [9]

> _none_ © (27.02.04 12:55)

Не подскажешь где его можно достать? И есть ли этот компонент для D7?
Чего-то сайт разработчика не грузится.

← →
alless © (2004-02-27 14:05) [10]

stranno. u menea raboataiet, no s ListBox-om.

← →
_none_ © (2004-02-27 14:11) [11]

to [denik]
да, облом с сайтом...
искать надо...
4.0.17 у меня версия есть - могу прислать

← →
alless © (2004-02-27 14:12) [12]

Licino dlea tebea proboval v otdelinom projekt-e:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls;

type
TForm1 = class(TForm)
TreeView1: TTreeView;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure DBGridWndProc(var Message:TMessage);
{ Public declarations }
end;

var
Form1: TForm1;
GridMetod: TWndMethod;
implementation

{$R *.dfm}
procedure TForm1.DBGridWndProc(var Message :TMessage);
begin
ShowScrollBar(Treeview1.Handle,SB_BOTH,FALSE);
GridMetod(Message);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ShowScrollBar(Treeview1.Handle,SB_BOTH,FALSE);
end;

end.

← →
alless © (2004-02-27 14:19) [13]

u menea delphi6, no ne dumaiu cto n 7-om ne poiedet.

← →
alless © (2004-02-27 14:19) [14]

u menea delphi6, no ne dumaiu cto n 7-om ne poiedet.

← →
alless © (2004-02-27 14:19) [15]

u menea delphi6, no ne dumaiu cto na 7-om ne poiedet.

to [alless] неужели-ж они при экспанде не появляются? не верю

← →
denik (2004-02-27 14:21) [17]

2 _none_ Mojno dobavleati:

procedure TForm1.TreeView1Expanded(Sender: TObject; Node: TTreeNode);
begin
ShowScrollBar(Treeview1.Handle,SB_BOTH,FALSE);
end;

← →
denik (2004-02-27 14:25) [19]

> alless © (27.02.04 14:12)

Можно сделать чтобы скролл исчез. Только некрасиво получается, он на мгновение все таки появляется.

to [denik] низзя... лови компоненты

to [alless] ms treeview must die

da, da, ia toje zametil ato. Ne znaiu kak. Poexperimentiruiu
Ups:
procedure TForm1.TreeView1Collapsed(Sender: TObject; Node: TTreeNode);
begin
ShowScrollBar(Treeview1.Handle,SB_BOTH,FALSE);
end;

Как избавиться от скролинга в TreeView`e? Найти похожие ветки