Q&A

  • Tree View에서 각 아이템의 hint는 어떻게 구하나요 소스포함
서울시
     송파구         -hint =서울시입니다.
     광진구         -hint =어린이대공원입니다.
경기도
    성남시         - 경기도에 있습니다.
    부천시          -인천시옆에 있습니다.

이렇게 있는데..

마우스를 송파구에 놓으면 ShowHint 서울시 입니다.

보여지게 하는 힌트요...

저는 mousemove로 코딩을 했는데..  꼭 아이템을 선택 selected을 해야만 보이거든요...

마우스를 각 아이템에 올리면 자동으로 showhint가 보여지게 하고 싶어요

아래는 낵가 코딩한 소스입니다. 보시고 부탁드립니다.
procedure TfrmMain.TreeMenuMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
    ClickedNode: TTreeNode;
    Pos : TPoint;
begin
    ClickedNode := TreeMenu.GetNodeAt(x,y);
    
    if ClickedNode <> nil then
    begin
         Label1.Visible     := True;
         TreeMenu.Selected  := ClickedNode;
         TreeMenu.ShowHint  := True;
         TreeMenu.Hint      := PTreeMenu(ClickedNode.Data)^.EMailID;
         Label1.Caption     := PTreeMenu(ClickedNode.Data)^.EMailID;

    end;

end;


0  COMMENTS