掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
２つのTreeview (ID:38692)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんなこと？ コピー元に子があってもコピーしない procedure TForm6.FormCreate(Sender: TObject); begin TreeView1.DragMode := dmAutoMatic; TreeView2.DragMode := dmAutoMatic; TreeView2.OnDragDrop := TreeView1DragDrop; TreeView2.OnDragOver := TreeView1DragOver; end; procedure TForm6.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer); var TreeNode : TTreeNode; S: String; I: Integer; begin if Source is TTreeView then begin if Assigned(TTreeView(Source).Selected) = True then begin S := TTreeView(Source).Selected.Text; TreeNode := TTreeView(Sender).GetNodeAt(X,Y); if Assigned(TreeNode) = True then begin TTreeView(Sender).Items.AddChild(TreeNode,S); end; end; end; Exit; end; procedure TForm6.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin Accept := True; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.