كيف ننشيء عنصر ActiveX من نوع pdf

اذهب الى الأسفل

كيف ننشيء عنصر ActiveX من نوع pdf

مُساهمة  mah11 في 6/10/2014, 2:48 pm


النسخة الفرنسية


بسم الله الرحمن الرحيم
اللهم صلي وسلم على سيد نا محمد وعلى آله و صحبــه أجمــعــين

كيف ننشيء عنصر أكتيف إكس من نوع بي دي أف


نفتح دلفي 7

نذهب الى تبويب
Composant









سأكمل الصورة لاحقا عاود زيارة من فضلك



و ننشيء مشروع جديد




الكود:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, AcroPDFLib_TLB, StdCtrls, ExtCtrls, Menus;

type
  TForm1 = class(TForm)
    AcroPDF1: TAcroPDF;
    MainMenu1: TMainMenu;
    file1: TMenuItem;
    Open1: TMenuItem;
    N1: TMenuItem;
    Exit1: TMenuItem;
    Help1: TMenuItem;
    OpenDialog1: TOpenDialog;
    procedure Open1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Open1Click(Sender: TObject);  // delph.forumalgerie.net
begin
 OpenDialog1.Filter := 'file pdf (*.pdf)|*.pdf|all file (*.*)|*.*';  // delph.forumalgerie.net
 if OpenDialog1.Execute then
   AcroPDF1.src:= OpenDialog1.FileName;  //'D:\delp p\mhk.pdf';  // delph.forumalgerie.net
end;  // delph.forumalgerie.net

procedure TForm1.Exit1Click(Sender: TObject);
begin
 Application.Terminate;
end;

end.

mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كيف ننشيء عنصر ActiveX من نوع pdf

مُساهمة  sdk11 في 13/6/2015, 9:19 am

بارك الله فيك

sdk11
مبرمج مجتهد

عدد المساهمات : 108
تاريخ التسجيل : 19/09/2014

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى