Acrobat Reader ocx全屏显示问题(高手兄弟哪去了， 为什么没有人能搞定) 非常熟悉Win32 的来看 ( 积分: 94 )

最近开发一个东东，打算用 Acrobat Reader 作客户端，
将ocx 放入Delphi的Form中，无法使它全屏显示 (全屏显示 : 要得到 Acrobat Reader中的 CTRL_L"的效果)
我采用了以下几种办法不行：

方法1 向控件发送 "CTRL_L&quot
的按键消息， 报告子窗体不支持全屏显示.
方法2 用 SPY++ 找出控件中各窗口的类名，用MoveWindow 改变其大小，但只能改小，
不能改成全屏。 搞不定。

哪位有好方法，给上所有的分

最近开发一个东东，打算用 Acrobat Reader 作客户端，
将ocx 放入Delphi的Form中，无法使它全屏显示 (全屏显示 : 要得到 Acrobat Reader中的 CTRL_L"的效果)
我采用了以下几种办法不行：

方法1 向控件发送 "CTRL_L&quot
的按键消息， 报告子窗体不支持全屏显示.
方法2 用 SPY++ 找出控件中各窗口的类名，用MoveWindow 改变其大小，但只能改小，
不能改成全屏。 搞不定。

哪位有好方法，给上所有的分

这么多人看了,都不会吗,兄弟们出点主意

学习

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, PdfLib_TLB, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Pdf1: TPdf;
Panel1: TPanel;
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
F: TForm;
begin
if OpenDialog1.Execute then
begin
Pdf1.LoadFile(OpenDialog1.FileName);
F := TForm.Create(nil);
F.Height := Screen.Height;
F.Width := Screen.Width;
F.BorderStyle := bsNone;
Pdf1.Parent := F;
Pdf1.BoundsRect := F.BoundsRect;
F.Show;
end;

end;

end.

你在修改你要的效果就行了

好像这样工具和左边那可以拉的东西 还在

得不到 Acrobat Reader中的 CTRL_L"的效果

这个问题这么难吗，大家都不会？