shellTreeView دو سطحی

[zahra_no]

با سلام

من میخواستم ShellTreeView تادوسطح داشته باشم
یعنی کاربر تا دو سطح امکان دیدن فایلها و پوشه ها رو داشته باشم
کار این کار با کدنویسی میشه انجام بشه
چطوری میتونیم اینکارو بکنم
دوستان ممنون میشم کمکم کنید.

[BORHAN TEC]

از کدوم کامپوننت ShellTree استفاده کرده اید؟
به هر حال من یک مثالی را آماده کرده ام که از کامپوننت TRzShellTree که در مجموعه Raize Components وجود دارد، استفاده میکند.
در این مورد شما باید از رویداد OnExpanding مربوط به کامپوننت RzShellTree به شکل زیر استفاده کنید:
const
LevelLimitation = 2;

procedure TForm1.RzShellTree1Expanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
var
aNode: TTreeNode;
I: Integer;
begin

aNode := Node;

for I := 1 to LevelLimitation do
begin
if aNode.Parent <> nil then
aNode := aNode.Parent
else
Exit;
end;

if aNode.Parent = nil then
AllowExpansion := False;

end;