掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TreeView のデーター管理で (ID:6200)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Halbow です。 TTreeView.Items.Assign() を使えばコピーできるんですね。 LupinIII さんの提案通りにしてみるとうまくいきます。 { Private 宣言 } public procedure ExchangeTreeViewItems(TV1,TV2:TTreeView); end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.ExchangeTreeViewItems(TV1,TV2:TTreeView); var tempTV:TTreeView; begin tempTV := TTreeView.Create(nil); tempTV.Visible := false; tempTV.Parent := self; try tempTV.Items.Assign(TV1.Items); TV1.Items.BeginUpdate; TV1.Items.Assign(TV2.Items); TV1.Items.EndUpdate; TV2.Items.BeginUpdate; TV2.Items.Assign(tempTV.Items); TV2.Items.EndUpdate; finally tempTV.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); begin ExchangeTreeViewItems(TreeView1,TreeView2); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.