名前
題名
▼ snail3さん > ▼ Mr.XRAYさん > Drag and Drop サンプル、 > > procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer); > var > WrkDestNode, > WrkSourceNode: TTreeNode; > NodeAttachMode: TNodeAttachMode; > begin > if Sender <> TreeView1 then > exit; > > WrkDestNode := TreeView1.GetNodeAT(X, Y); > > if Assigned( WrkDestNode ) = False then > exit; > > if ((GetKeyState(VK_CONTROL) and $8000) <> 0) > or (TreeView1.TopItem = WrkDestNode) then > NodeAttachMode := naAddChild > else > NodeAttachMode := naInsert; > > > WrkSourceNode := TreeView1.Selected; > > TreeView1.Items.BeginUpdate; > WrkSourceNode.MoveTo(WrkDestNode, NodeAttachMode); > TreeView1.Items.EndUpdate; > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link