Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.14;
Скачать: CL | DM;

Вниз

Как избавиться от скролинга в 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.


 
_none_ ©   (2004-02-27 14:20) [16]

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


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

> _none_ © (27.02.04 14:11)

А он под Delphi7 пойдет? Если да, то пришли пожалуйста на
denick_d@mail.ru


 
alless ©   (2004-02-27 14:23) [18]

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)

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


 
_none_ ©   (2004-02-27 14:30) [20]

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

to [alless] ms treeview must die


 
alless ©   (2004-02-27 14:30) [21]

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;



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

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

Наверх




Память: 0.51 MB
Время: 0.028 c
6-43736
Sen
2004-01-02 15:26
2004.03.14
Передача потоков по сети


3-43300
Марат
2004-02-12 07:16
2004.03.14
Ttuncate


1-43653
Powerland Software
2004-03-01 20:38
2004.03.14
Memory


1-43621
Ш-К
2004-03-02 13:21
2004.03.14
Привести Inteface to Classes.


1-43531
Woolen
2004-02-28 12:10
2004.03.14
Кряк для восьмерки