Forum: Object-Pascal / Delphi-Language
by bitsetter,
30. Jul 2007
Hallo,
genau das gleiche machte mein Code übrigens auch. :wink:
procedure TForm1.ShellTreeView1Expanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
var
i: integer;
begin
Forum: Object-Pascal / Delphi-Language
by bitsetter,
29. Jul 2007
Man könnte noch im onExpanding das Aufklappen verhindern:procedure TForm1.ShellTreeView1Expanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
begin
if Node <> ShellTreeView1.Items.Item then
AllowExpansion := false;
end;
Edit: Code geändert, habe noch was besseres gefunden.
Forum: Object-Pascal / Delphi-Language
by bitsetter,
28. Jul 2007
Hi,
meinst du das?
ShellTreeView1.ShowButtons:= false;