如何在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 |
發表時間：2005-11-26 16:41:28
IP:59.33.xxx.xxx 未訂閱
系統時間：2024-05-05 10:52:40
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |