Q&A

  • ListView에서 Hint나로게 하는 예제부탁합니다.
안녕하세요..

날씨가 무지 춥죠..

프로그램 실력이 조금 안되어...

부탁드립니다.

ListView의 각 아이템에.. 마우스를 올리면.. hint가 보여지게 하는것을 부탁드립니다.
1  COMMENTS
  • Profile
    홍성락 2003.01.29 19:33
    예전에 트리뷰에서와 같이 Application.ActivateHint를 사용하여 MouseMove이벤트로 항상 떠있게 해보았습니다.
    procedure TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    var
        SListItem : TListItem;
        CursorPos : TPoint;
    begin
        ListView1.ShowHint := False;
        SListItem := ListView1.GetItemAt(X,Y);
        if SListItem <> nil then begin
           ListView1.Hint := SListItem.Caption;
           ListView1.ShowHint := True;

           CursorPos:= Mouse.CursorPos;
           Application.ActivateHint(CursorPos);
        end;
    end;
    hsr/////////////////////////////////////////////