여용구 wrote:

> listbox의 아이템을 선택하여 드래그해서... 트리뷰의 한 아이템으로 추가하려고 합니다. 어떻게 하면 될지 알려주십시요.. 제발...

>

> 그럼... 대답 기다리겠습니다.



우선 Listview와 Treeview의 DragMode를 dmAutomatic으로 하고 다음과 같이



procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;

State: TDragState; var Accept: Boolean);

begin

if (Source is TListBox) then

Accept := True

else

Accept := False;

end;

procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);

var i : Integer;

n : TTreenode;

begin

n := TreeView1.DropTarget;

i := ListBox1.ItemIndex;

TreeView1.Items.AddChild(n,ListBox1.Items.Strings[i]);

end;