hsr//////////////////////////////////////////////////////////
단순히 루트노드로 가는거죠...아래처럼해보세요.
1.
procedure TForm1.Button1Click(Sender: TObject);
begin
TreeView1.SetFocus;
TreeView1.Select(TreeView1.TopItem);
end;
2.home버튼을 누르면 최상, end버튼을 누르면 마지막 노드로 가는것을 이용해서 메세지발생방법 사용
procedure TForm1.Button1Click....
begin
sendmessage(TreeView1.Handle,WM_KEYDOWN,36,0); //home버튼
TreeView1.SetFocus;
end;
hsr//////////////////////////////////////////////////////////
단순히 루트노드로 가는거죠...아래처럼해보세요.
1.
procedure TForm1.Button1Click(Sender: TObject);
begin
TreeView1.SetFocus;
TreeView1.Select(TreeView1.TopItem);
end;
2.home버튼을 누르면 최상, end버튼을 누르면 마지막 노드로 가는것을 이용해서 메세지발생방법 사용
procedure TForm1.Button1Click....
begin
sendmessage(TreeView1.Handle,WM_KEYDOWN,36,0); //home버튼
TreeView1.SetFocus;
end;