안녕하세여...?

영원한 컴맹 입니다.



Treeview에 검색하는게 없는것같아여..

그래서 한번 만들어 봤습니당~





procedure TForm1.Button1Click(Sender: TObject);

var

ss : TTreeNode;

begin

TreeView1.FullExpand;

ss:= findNode( edit1.text);

// TreeView1.SetFocus; // 트리뷰의 HideSelection 을 True하면 할필요는 없으나..

//확실하게 파란색으로 보이려면 꼭 해줘야 하는것

// 같습니다...

ss.Selected := true;

end;





function TForm1.findNode( Str : String) : TTreeNode;

var

CurItem: TTreeNode;

begin

CurItem := TreeView1.Items.GetFirstNode ;

while CurItem <> nil do

begin

if CurItem.Text = Str then

begin

Result := CurItem;

exit;

end;

CurItem := CurItem.GetNext;

end;



end;



코딩하시는데 참고 하시구여..

즐코딩하세여..



하늘사랑 wrote:

> 안녕하세요..

> 트리뷰가 하나 있습니다..

>

> 에디트박스에 검색하고자 하는 텍스트을 입력한뒤

> 그 텍스트와 일치하는 자료를 트리뷰에서 찾은뒤

> 찾은곳에 포커스를 주고자합니다...

> 방법이 없을까요..?

>

> 맨처음 트리뷰

>

> 총무과

> 전산실

> 자재과

> 하늘사랑 으로 검색

>

> 결과 트리뷰

>

> 총무과

> 전산실

> --- 하늘사랑 <- 여기에 포커스

> 자재과