Q&A
- Treeview에서의 이동
트리뷰 2개를 써서 노드의 이동을 자유롭게 하려고 합니다.
트리뷰A내에서는 물론, 트리뷰 A와 B간의 이동도 가능하게 하려 합니다.
다음과 같이 코딩을 했더니 이동은 가능한데 서브아이템이 없어져 버리네요.
고수님들의 가르침 부탁합니다.
procedure TForm1.TreeViewsDragDrop(Sender, Source: TObject; X, Y: Integer);
var
AnItem: TTreeNode;
SourceTree, TargetTree: TTreeView;
begin
SourceTree := Source as TTreeView;
TargetTree := Sender as TTreeView;
if SourceTree.Selected = nil then Exit;
AnItem := TargetTree.GetNodeAt(X,Y);
TargetTree.Items.AddChild(AnItem, SourceTree.Selected.Text);
SourceTree.Items.Delete(SourceTree.Selected);
end;
트리뷰A내에서는 물론, 트리뷰 A와 B간의 이동도 가능하게 하려 합니다.
다음과 같이 코딩을 했더니 이동은 가능한데 서브아이템이 없어져 버리네요.
고수님들의 가르침 부탁합니다.
procedure TForm1.TreeViewsDragDrop(Sender, Source: TObject; X, Y: Integer);
var
AnItem: TTreeNode;
SourceTree, TargetTree: TTreeView;
begin
SourceTree := Source as TTreeView;
TargetTree := Sender as TTreeView;
if SourceTree.Selected = nil then Exit;
AnItem := TargetTree.GetNodeAt(X,Y);
TargetTree.Items.AddChild(AnItem, SourceTree.Selected.Text);
SourceTree.Items.Delete(SourceTree.Selected);
end;
2
COMMENTS
-
-
김경식님, 답변 감사합니다.
moveto는 동일 트리내에서는 이동이 잘 되는 데 다른 트리로의 이동이 자유롭지 못하더군요.assign을 쓰면 된다고 하는데 잘 모르겠어여..ㅠ.ㅠ
김경식 wrote:
> 실질적으로 지금의 작업은 이동이 되는게 아니라 TargetTree에 새로운 노드를 만들고, SourceTree에서 선택된 노드를 삭제 하는게 아닌가 생각됩니다.
> 이동을 하실려면 TTreeNode.MoveTo를 참조하시면 되지 않을까 합니다.
> 소스를 적어 드리면 좋겠지만, 저도 초보라 시간이 너무 걸릴 것 같네요...-_-;;
> 대충 적어보면
> SourceTree.Selected.MoveTo(AnItem, naAddChild);
> 쯤 되지 않을까 하네요. 테스트는 안해 봤어요.
> 성공을 빌며...
>
> 궁금녀 wrote:
> > 트리뷰 2개를 써서 노드의 이동을 자유롭게 하려고 합니다.
> > 트리뷰A내에서는 물론, 트리뷰 A와 B간의 이동도 가능하게 하려 합니다.
> > 다음과 같이 코딩을 했더니 이동은 가능한데 서브아이템이 없어져 버리네요.
> > 고수님들의 가르침 부탁합니다.
> >
> > procedure TForm1.TreeViewsDragDrop(Sender, Source: TObject; X, Y: Integer);
> > var
> > AnItem: TTreeNode;
> > SourceTree, TargetTree: TTreeView;
> > begin
> > SourceTree := Source as TTreeView;
> > TargetTree := Sender as TTreeView;
> >
> > if SourceTree.Selected = nil then Exit;
> > AnItem := TargetTree.GetNodeAt(X,Y);
> >
> > TargetTree.Items.AddChild(AnItem, SourceTree.Selected.Text);
> > SourceTree.Items.Delete(SourceTree.Selected);
> > end;
(NOTICE) You must be logged in to comment on this post.
-
- 김정규
- 2001.02.06 03:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.02.06 03:31
- 1 COMMENTS
- /
- 0 LIKES
-
kylix•2001.02.06 13:42procedure TForm1.SaveButtonClick(Sender: TObject); var SaveDialog: TSaveDialog; begin Sa...
-
- 초보
- •
- 2001.02.06 03:04
- 1 COMMENTS
- /
- 0 LIKES
-
허더비•2001.02.06 20:04초보 wrote: > 스트링그리드에서 한 셀을 클릭 했을때 그 셀의 폰트는 검정색으로 배경은 흰색으로 표현해...
-
- 모름이
- •
- 2001.02.06 02:58
- 1 COMMENTS
- /
- 0 LIKES
-
모름이•2001.02.06 21:09모름이 wrote: > 안녕하세여~ > 델파이를 사랑하는 한국의 젊은이 입니다. > 지금 winshoes 컴포런트를 ...
-
- 박성혜
- 2001.02.06 02:52
- 0 COMMENTS
- /
- 0 LIKES
-
- hsh
- 2001.02.06 02:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 고스트
- •
- 2001.02.06 02:53
- 1 COMMENTS
- /
- 0 LIKES
-
coolling•2001.02.06 03:15TNS업데이트가 뭘 말하는 건가요... Oracle Net8 Easy Config에서 서비스Name과 TCP/IP설정, 프로토콜등의...
-
- nurihong
- 2001.02.06 02:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2001.02.06 02:25
- 1 COMMENTS
- /
- 0 LIKES
-
이만준•2001.02.06 03:39안녕하세요... dbgrid는 스트링그리드 처럼 Cell을 가지고 있지 않습니다.... 데이타는 모두 DataSet...
-
- 답변 갈망자
- •
- 2001.02.06 01:58
- 2 COMMENTS
- /
- 0 LIKES
-
정우성•2001.02.06 03:34안녕하세여.. 정우성입니다. 음.. 저두 그것 때문에.. 고민 좀 했습니다. 저는 이런식으로 해결했습...
-
답변 갈망자•2001.02.06 03:56답변 감사합니다. 오늘 꼭 실행해 보도록 하겠습니다. 근데 혹시 express버젼말고 다른 버젼에서는 그런...
-
- 바보
- •
- 2001.02.06 01:41
- 6 COMMENTS
- /
- 0 LIKES
-
김영현•2001.02.06 22:57
-
유레카•2001.02.06 02:14
-
바보•2001.02.06 03:18
-
유레카•2001.02.06 04:05
-
바보•2001.02.06 04:48
-
유레카•2001.02.06 20:11
-
- 궁금녀
- •
- 2001.02.06 01:30
- 2 COMMENTS
- /
- 0 LIKES
트리뷰 2개를 써서 노드의 이동을 자유롭게 하려고 합니다. 트리뷰A내에서는 물론, 트리뷰 A와 B간의 이동도 가능하게 하려 합니다. 다음과 같이 코딩을 했더니 이동은 가능한데 서브아이템이 없어져 버리네요. 고수님들의 가르침 부탁합...-
김경식•2001.02.06 03:12실질적으로 지금의 작업은 이동이 되는게 아니라 TargetTree에 새로운 노드를 만들고, SourceTree에서 선택...
-
궁금녀•2001.02.06 03:32김경식님, 답변 감사합니다. moveto는 동일 트리내에서는 이동이 잘 되는 데 다른 트리로의 이동이 자유롭...
-
- 김영미
- •
- 2001.02.06 01:23
- 6 COMMENTS
- /
- 0 LIKES
-
이만준•2001.02.06 03:33
-
김영미•2001.02.06 03:54
-
이만준•2001.02.06 04:26
-
김영미•2001.02.06 04:46
-
이만준•2001.02.06 05:10
-
김영미•2001.02.06 05:16
-
- 3107
- •
- 2001.02.06 01:08
- 1 COMMENTS
- /
- 0 LIKES
-
3107•2001.02.06 02:50해결했습당.........^^ 같은 문제로 고민하는 사람은 메일 주세요 > 코딩 상에서 while문 안에서 d...
-
- 초보초보
- •
- 2001.02.06 00:54
- 2 COMMENTS
- /
- 0 LIKES
-
이만준•2001.02.06 03:09안녕하세요... 님의 코드에서 if member testmember then 이러한 비교는 의미가 없습니다.... ...
-
초보초보•2001.02.06 05:03만준님 감사요.. 이제야 머리가 좀 맑아 지는거 같습니다.. 이만준 wrote: > > 안녕하세요... > >...
-
- 때밀이
- •
- 2001.02.06 00:48
- 2 COMMENTS
- /
- 0 LIKES
-
조덕진•2001.02.06 01:27델고수를 꿈꾸는 초봅니다. 꽁수지만, 팝업메뉴가 뜰때 Tab 컨트롤의 Fosuc를 체크하여 변경해 주면 되...
-
때밀이•2001.02.06 04:30음...SetFocus를 해도 안되고...Focused를 해도 안되는군요.. 계속 찾아봐야겠네요.. 아시는 분 없나요? ...
-
- 김진성
- 2001.02.06 00:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.02.06 01:00
- 1 COMMENTS
- /
- 0 LIKES
-
임형호•2001.02.06 01:24초보 wrote: > IF RADIOGROUP1.ITEMINDEX = 0 THEN > > QUERY1.CLOSE; > QUERY1.SQL.Clear; > ...
-
- 남경임
- 2001.02.06 00:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 김상민
- 2001.02.06 00:28
- 0 COMMENTS
- /
- 0 LIKES
이동을 하실려면 TTreeNode.MoveTo를 참조하시면 되지 않을까 합니다.
소스를 적어 드리면 좋겠지만, 저도 초보라 시간이 너무 걸릴 것 같네요...-_-;;
대충 적어보면
SourceTree.Selected.MoveTo(AnItem, naAddChild);
쯤 되지 않을까 하네요. 테스트는 안해 봤어요.
성공을 빌며...
궁금녀 wrote:
> 트리뷰 2개를 써서 노드의 이동을 자유롭게 하려고 합니다.
> 트리뷰A내에서는 물론, 트리뷰 A와 B간의 이동도 가능하게 하려 합니다.
> 다음과 같이 코딩을 했더니 이동은 가능한데 서브아이템이 없어져 버리네요.
> 고수님들의 가르침 부탁합니다.
>
> procedure TForm1.TreeViewsDragDrop(Sender, Source: TObject; X, Y: Integer);
> var
> AnItem: TTreeNode;
> SourceTree, TargetTree: TTreeView;
> begin
> SourceTree := Source as TTreeView;
> TargetTree := Sender as TTreeView;
>
> if SourceTree.Selected = nil then Exit;
> AnItem := TargetTree.GetNodeAt(X,Y);
>
> TargetTree.Items.AddChild(AnItem, SourceTree.Selected.Text);
> SourceTree.Items.Delete(SourceTree.Selected);
> end;