에구.. 죄송합니당..
전 질문 올리신 예제를 보고 현재 선택된 내용만 레이블 캡션에 뿌려주
시려는줄 알았는데..
전체 경로를 모두 보여주려면 아래 코드와 같이 몇라인 더 추가 하시면
됩니다..
급작스럽게 작성한 코드라 테스트는 충분히 못해봤습니다..
혹 문제가 있으면 다시 글 올려주세요..
기람..
미친병아리 서비였네용.. 삐약~ !!
procedure TForm1.TreeView1Change(Sender: TObject; Node:
TTreeNode);
var
tempNode1, tempNode2 : TTreeNode ;
begin
Label1.Caption
:= TreeView1.Items[TreeView1.Selected.AbsoluteIndex].Text ;
tempNode1 := Node ;
while tempNode1.Parent<>nil do
begin
tempNode2 := tempNode1.Parent ;
Label1.Caption := tempNode2.Text + '\' + Label1.Caption ;
tempNode1 := tempNode2 ;
end ;
end;
번호:747/752 등록자:ONESOFT 등록일시:98/01/17 14:15 길이:11줄
제 목 : [질문] SICKCHIC님 다시 질문..
말씀하신 change이벤트에는 click이벤트 보다 먼저 해봤걸랑요..
두군데다 해봤는데 안되더라구요..
무신 그런게 있는지..
다른 방안은 없는건지...
그럼..
|