如何在delphi打開 PDF文件禁止鼠标右键或打印功能 |
尚未結案
|
linken
一般會員 發表:23 回覆:37 積分:22 註冊:2004-11-24 發送簡訊給我 |
各位大哥:
我在Delphi可控制Form的鼠标右键,但打開pdf文件后,就控制不到pdf對畫框的鼠标右键功能,請問題如何控制禁止Adobe鼠标右键,我的代碼如下,請各位高手指教!謝謝!! unit Unit1; interface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleCtrls, AcroPDFLib_TLB; type
TForm1 = class(TForm)
AcroPDF1: TAcroPDF;
procedure WMContextMenu(var Message: TWMContextMenu);message WM_CONTEXTMENU;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.DFM} procedure TForm1.WMContextMenu(var Message: TWMContextMenu);
begin
Message.Result:=1;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
AcroPDF1.Src:='d:\pdf\ADD-12X10.pdf'
end; ken
------
ken |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |