property ShowHint: Boolean; // published, inherited from TControl
ShowHint 決定當滑鼠停在檢視器上方時,架構是否顯示 Hint 所描述的工具提示。它與同樣已發佈的 ParentShowHint 一起構成標準 VCL/LCL 提示流程:當 ParentShowHint 為 True 時,值會繼承自父表單或面板;當它為 False 時,以本地 ShowHint 為準
在 PDF 閱讀器中,提示最常用來傳達動態狀態:例如顯示游標下方的頁面標籤(由 OnMouseMove + DeviceToPage 計算)、游標下方網頁連結的 URL,或作用中工具列的鍵盤快速鍵。主表單的 OnShowHint 事件可以在顯示前重新撰寫提示文字
當檢視器是 kiosk 風格應用程式的焦點元件,而彈出提示會分散使用者注意力時,停用提示有時很有用。此屬性只會抑制提示泡泡,Hint 字串仍可透過程式碼存取
False 且 ParentShowHint = True,這表示由表單的 ShowHint 主導行為OnMouseMove 與 DeviceToPage 動態更新 Hint,例如顯示頁面標籤或游標下方網頁連結的目的地ParentShowHint := False 與 ShowHint := True
// 將游標下方的頁面標籤顯示為提示
procedure TForm1.FormCreate(Sender: TObject);
begin
PdfView1.ShowHint := True;
PdfView1.OnMouseMove := PdfView1MouseMove;
end;
procedure TForm1.PdfView1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
var PageNo: Integer;
begin
if PdfView1.PointToPage(Point(X, Y), PageNo) then
PdfView1.Hint := 'Page ' + IntToStr(PageNo) + ' / ' +
IntToStr(PdfView1.Pdf.PageCount);
end;