名前
題名
▼ Mr.XRAYさん > >てなわけで以下のようにしてみてください． > > > >procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); > >begin > > AcroPDF1.ControlInterface._AddRef; > >end; > > これをいちいち書くのは面倒なので，修正した AcroPDFLib_TLB.pas を UP しました． > EXE も再生成しました． > mountain079 さんが OnShow で操作しているというので確認しました． > 一応動作確認コードを掲載しておきます． > Windows 7 U64(SP1) + Delphi XE5(UP2) Pro + Adobe Reader DC です． > > procedure TForm1.FormCreate(Sender: TObject); > var > LPdfFilePath : string; > begin > LPdfFilePath := ExpandFileName('..\TestAcro.pdf'); > AcroPDF1.src := LPdfFilePath; > end; > > procedure TForm1.FormShow(Sender: TObject); > begin > AcroPDF1.setView('fitv'); > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link