TreeViewの全展開を知りたい (ID:149841)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

＊　の展開の判断ならば　＊押されただけで良い気もするけど

procedure TForm1.TreeView1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
    if Key = 106 then
    begin
    end;
end;

----------------------------------

Expanded / Expanding が　クリックの展開か ＊ の展開かを区別したいのならば

procedure TForm1.TreeView1Collapsing(Sender: TObject; Node: TTreeNode;
  var AllowCollapse: Boolean);
begin
    Node.Data := Pointer(0);
end;

procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
begin
    if SAVEKEY = 106 then
    begin
      if Node.Data = Pointer(0) then
      begin
        Node.Data := Pointer(1);
        Memo1.Lines.Add('*で展開された Expanding');
      end
      else
      begin
        Memo1.Lines.Add('*で展開された Expanding(展開済み)');
      end;
    end
    else
    begin
      Memo1.Lines.Add('Expanding');
    end;
end;

procedure TForm1.TreeView1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
    SAVEKEY := KEY;
end;

procedure TForm1.TreeView1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    SAVEKEY := 0;
end;

←解決時は質問者本人がここをチェックしてください。

戻る