function LinkAnnotationAtPos(X, Y: Integer; out PageNumber: Integer): Integer; overload;
function LinkAnnotationAtPos(X, Y: Integer): Integer; overload;
Zwraca indeks adnotacji łącza w pikselu ekranu (X, Y) lub -1.
Użyj do zaimplementowania interfejsu "kliknij, aby przejść" bez włączania automatycznej obsługi LinkOptions.
TPdfView utrzymuje wewnętrznie transformację urządzenie-strona na podstawie Zoom, Rotation, dopełnienia strony i przesunięcia przewijania; te funkcje pomocnicze są bezpiecznym publicznym interfejsem do tej transformacji.
PageNumber := unieważniają buforowane współrzędne.Rotation, więc strona obrócona o 90° nadal mapuje się do właściwego prostokąta PDF.
procedure TForm1.PdfView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
PageX, PageY: Double;
begin
if PdfView1.LinkAnnotationAtPos(X, Y, PageX, PageY) then
Caption := Format('pt = (%.2f, %.2f)', [PageX, PageY]);
end;