Q&A

  • TreeView의 각 노드에 마우스를 갔놓았을때 힌트는 어떻게 얻나여..???
[질문] TreeView의 각 노드에 마우스를 갔놓았을때 힌트는 어떻게 얻나여..???


말그대로 입니다..

TreeView의 각 노드에 마우스를 갔놓았을때 힌트는 어떻게 얻고 싶은데...

예전에 구현했는데...

까먹었네여...

무슨 이벤트가 있어서 했던것 같은데... ^^;

고수님들 알려주시면 감사...
2  COMMENTS
  • Profile
    홍성락 2002.03.28 21:30

    hsr////////////////////////////////////////////////
    이렇게한번해보세요
    다른 윈도우 메세지이벤트를 써도되지만 아래처럼 간단히도 되는데요....
    procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    var
        SNode: TTreeNode;
        CursorPos: TPoint;
    begin
        TreeView1.ShowHint := False;
        SNode := TreeView1.GetNodeAt(X,Y);
        if SNode <> nil then begin
           TreeView1.Hint := SNode.Text;
           TreeView1.ShowHint := True;

           CursorPos:= Mouse.CursorPos;
           Application.ActivateHint(CursorPos);
        end;
    end;
  • Profile
    델파이탐크루즈 2002.03.28 22:13