• Offizieller Beitrag

    Ich habe nur einen einfachen test:

    WPViewPDF1.OnDragOver := FieldScrollDragOver;

    WPViewPDF1.OnDragDrop := FieldScrollDragDrop;

    procedure TForm1.FieldScrollDragDrop(Sender, Source: TObject; X, Y: Integer);

    begin

    if Source=Button1 then

    ShowMessage('Drop!');

    end;

    procedure TForm1.FieldScrollDragOver(Sender, Source: TObject; X, Y: Integer;

    State: TDragState; var Accept: Boolean);

    begin

    Accept := true;

    end;

    Jetzt ist natürlich die Frage was beim "Drop" passieren soll.

    Wenn man was mit Seiten koordinaten machen muss, ist dieser code hilfreich

    var pp, px, py : Integer; // Page Coordinates

    begin

    pp := WPViewPDF1.Command(COMPDF_GetPageUnderMouse);

    if pp<0 then

    XYPos.Caption := '- - -' else

    begin

    px := WPViewPDF1.Command(COMPDF_GetPageLogX);

    py := WPViewPDF1.Command(COMPDF_GetPageLogY);

    XYPos.Caption := Format('%d: x=%d y=%d', [pp+1, pX, pY]);

    end;

    end;