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;