Salut,
J'écris une procédure en utilisant les objets com - ole qui permet d'afficher une page d'un fichier pdf sur la fenêtre de mon application, le problème c'est que l'image apparait pendant une seconde puis elle disparait??????
voila mon code:
Merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 procedure TForm1.Button3Click(Sender: TObject); var AVDoc,acrApp:variant; begin acrApp := CreateoleObject('AcroExch.App'); AVDoc := CreateOleObject('AcroExch.avDoc'); AVDoc.OpenInWindowex('C:\invariants2.pdf',form1.Handle,AV_PAGE_VIEW,0,1,1,1,1,0,0); avdoc:=Unassigned; acrapp.exit; end;
Partager