TreeViewのノードをシングルクリックで展開、収縮
しかも前まで展開してたノード収縮させるにはどうすればいいのでしょうか？
例・sleipnilのブックマークみたいの
こゆのは書いてみたのですが
これだと現在選択されているノードを
ワンクリックしても展開、収縮されない・・・
private
{ Private 宣言 }
FlagNode: TTreeNode;
・
・
・
procedure TMainForm.TreeViewChange(Sender: TObject; Node: TTreeNode);
begin
if Node.Expanded = True then
Node.Expanded := False
else
Node.Expanded := True;
FlagNode := Node;
end;