دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

كيف ننشيء عنصر 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

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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