Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Shellexecute in 'Neubau'

    Delphi
    by Delbor, 17. Mär 2022
  Hi DeddyH
  
  Ok, mal für mich, zum gaaanz langsam mitschreiben (weil ich wirklich gestern Nacht dachte, genau darauf geachtet zu haben):
  unit RogersPdfFrameUnit;
  
  interface
  
  uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, PDFium,
• Forum: Object-Pascal / Delphi-Language

  Shellexecute in 'Neubau'

    Delphi
    by Delbor, 17. Mär 2022
  Hi zusammen
  
  Folgenden Code soll in einem 'Neubau' übernommen werden:
  procedure TRogersPdfFrame.FOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  const
  Tolerance = 2.0;
  var WebLinkIndex: Integer; LdfView : TPdfView;
  begin
  LdfView := (Sender as TPdfView);
  Pdf1.PageNumber := LdfView.PageNumber;