박홍석 wrote:

> 안녕하세요.

>

> 콤보박스를 펼쳐서 마우스로 아이템을 선택할려고 이동중일때

> 그 아이템의 내용을 힌트로 나타내고 싶습니다. 그 아이템의

> 바로 옆에....

>

> 어떤 방식을 이용해야 할까요?



홍석님 안녕하세요?

일전에 전철호님의 홈에서 퍼온 내용입니다.

보시고 도움되시길 바랍니다.



[팁]리스트 박스, 콤보박스일 경우 해당 아이템에 힌트를 사용 하는 방법

리스트 박스, 콤보박스는 Control에 대해서만 힌트를 나타낸다.

그런데 각각의 Item마다 다른 힌트를 나타내려면 어떻게 나타낼까 ?.



아주 간단한 방법을 사용하여 위의 문제를 해결해 보자.

일단 OmMouseMove Event에다

다음과 같이 기술한다.



TableTree는 리스트 박스로 간주한다.



if TableTree.Items.Count <= 0 then

System.Exit;

{$R-} // Range Check Error를 뺀다.

P.X := X;

P.Y := Y;

dw := SendMessage(TableTree.Handle,LB_ITEMFROMPOINT,0,MAKELPARAM(P.X,P.Y));

idx := LOWORD(dw);

if HIWORD(dw) = 1 then // 마우스가 리스트박스 아이템 위치에 없을때.

System.Exit;

Hint := TableTree.Items[idx];

{$R+}



그리고 나서 ShowHint를 True로 설정하면 해당 Item에 같을 경우

Item에 해당되는 값이 힌트에 나타날 것이다.



또한 해당 Item에 popup을 나타내는 경우도 아주 간단하게

해결할 수 있다.



OnMouseUp Event에다 다음과 같이 기술하면 된다.

var

P : TPoint;

idx: integer;

dw : DWORD;

begin

if TableTree.Items.Count <= 0 then

System.Exit;

if Button = mbRight then

begin

P.X := X;

P.Y := Y;

dw := SendMessage(TableTree.Handle,LB_ITEMFROMPOINT,

0,MAKELPARAM(P.X,P.Y));

idx := LOWORD(dw);

if HIWORD(dw) = 1 then // 리스트박스 아이템 위치에 없을때.

System.Exit;

TableTree.ItemIndex := idx;

if TableTree.ItemIndex = idx then

begin

P := TableTree.ClientToScreen(P);

Popup_Table.Popup(P.X,P.Y);

end;

end;



ComboBox나 TCheckListBox도 위와 같이 사용하면은

Item 각각의 힌트와 Popup윈도우를 사용할 수 있다.