InfoTipの位置を設定する

Question

My TListViewコントロールにShowHintsが有効で、OnInfoTipイベントを処理しています。ポップアップInfoTipボックスのメッセージは、OnInfoTipハンドラに設定されています。ただし、InfoTipポップアップボックスの位置は、リスト内の項目にマウスを重ねるときのマウスの位置に相対的です。ポジションをカスタマイズする方法はないようです。

ヒントポップアップの位置を、たとえばTListViewの特定の領域や、TListViewコントロールの境界外のフォームのどこかに設定することはできますか？理想的には、ヒントポップアップを表示して、TListView内の他のアイテムを不明瞭にする（または排除する）ようにしたいと思います。

Answer 1

まず次のようTListViewののCMHintShowを公開する必要があります。

type 
    TListView = class(Vcl.ComCtrls.TListView) 
     private 
     FPos: TPoint; 
     protected 
     procedure CMHintShow(var Message: TCMHintShow); message CM_HINTSHOW; 
     published 
     property MyPos: TPoint read FPos write FPos; 
    end; 


    TfrmMain = class(TForm) 
    ... 
    ListView1: TListView; 

はその後OnInfoTipイベントで、希望する位置を設定します。私の例では、ScrollBox（sbxFilter - TlistViewの下にあります）のTopLeft Cornerの座標を取得し、CoordをTListViewプロパティMyPosに渡します。

procedure TfrmMain.ListView1InfoTip(Sender: TObject; Item: TListItem; var InfoTip: string); 
var 
    p: TPoint; 
begin 
    InfoTip := 'Test'; 
    p := sbxFilter.ClientToScreen(point(0, 0)); 
    ListView1.MyPos := p; 
end; 


{ TListView } 

procedure TListView.CMHintShow(var Message: TCMHintShow); 
begin 
    inherited; 
    Message.HintInfo.HintPos := FPos; 
end; 

Answer 2

たとえば、OnInfoTip()イベントで定義したヒントを表示することができます。 StatusBarのStatusPanel（フォームの最下部）。例えば

：

procedure TForm1.ListView1InfoTip(Sender: TObject; Item: TListItem; 
    var InfoTip: string); 
begin 
    InfoTip := ''; 
    StatusBar1.Panels[0].Text := 'ListView Infotip, Item '+IntToStr(Item.Index); 
end;