Delphi의 힌트는 TApplication 객체에서 관리합니다.

그런데 TListView는 win32 컨트롤을 슈퍼클래싱한것인데 subitem에 mouse가 갈경우 자동으로 Hint가 뜨더군요
ListView.ShowHint , ListVeiw.Hint 는 Application에서 관리하는 hint를 띄워 줄것인가 말것인가에 대한 것이구요


ListView이 SubItems에서 default로 띄는 Hint를 막는방법에 대해 VCL에서는 인터페이스를 제공하지 않는것 같습니다.

저도 오늘 안것인데
다음과 같이 하면 subItem에 Default로 띄는 Hint를 막을수 있습니다.

<!--CodeS-->
SendMessage(ListVeiw1.Handle, LVM_SETTOOLTIPS, 0, 0);
<!--CodeE-->

맨 마지막 LParam이 tooltip윈도우 Handle을 넘겨줘야 하는데 0로 하면 nil을 넘겨서 그런지 않뜨더군요

참조
target=_blank>http://msdn.microsoft.com/en-us/library/aa453518.aspx


그럼..

아 방금 정확한 방법을 찾았습니다.

위 방법으로 해도 되긴 되지만 꼼수이구...

아래와 같이 하시면 됩니다.

<!--CodeS-->

//ListView Subitem의 Default tooltip 없애기
procedure TForm1.Button5Click(Sender: TObject);
var
exStyle: Cardinal;
begin
exStyle:=ListView_GetExtendedListViewStyle(ListView1.Handle);
exStyle:=exStyle and (not LVS_EX_INFOTIP);
ListView_SetExtendedListViewStyle(ListView1.Handle,exStyle);
end;


//ListView Subitem의 Default tooltip 설정함수
procedure SetListViewSubItemToolTip(ListView : TListView; bInfoTip: boolean);
var
exStyle: Cardinal;
begin
exStyle:=ListView_GetExtendedListViewStyle(ListView.Handle);
if bInfoTip then
exStyle:=exStyle or LVS_EX_INFOTIP
else
exStyle:=exStyle and (not LVS_EX_INFOTIP);

ListView_SetExtendedListViewStyle(ListView.Handle,exStyle);
end;

<!--CodeE-->

참고하세요

http://cbuilder.borlandforum.com/impboard/impboard.dll?action=read&db=bcb_tip&no=795

장성호님 답변 정말 감사합니다.

그런데, 제가 짧은 델파이 경력으로 어떻게 써야 할지.. 잘 몰라서요...

ListView_GetExtendedListViewStyle, ListView_SetExtendedListViewStyle
이 두함수는 어떤 Unit 을 참조해야하는지 잘 몰라서..

볼포에 올려놓으신 내용을 참조로
LVM_FIRST = $1000;
LVM_SETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + 54;
LVM_GETEXTENDEDLISTVIEWSTYLE = LVM_FIRST ++ 55;
LVS_EX_INFOTIP = $400;
선언해서

SendMessage 로 처리했습니다.(잘됩니다..)

ListView_GetExtendedListViewStyle, ListView_SetExtendedListViewStyle
이 두 함수를 바로 이용할 수 있나요??

아.. 질문하면서도.. 질문을 제대로 하고 있는지 당황스럽습니다. ^^;?

유닛 commctrl 에 있습니다.

uses commstrl ;

그럼..

장성호님 답변 감사합니다.
좋은좋은 하루 되세요~ 꾸벅!