通过DLL动态创建FORM以及WebBrower,出现的一些问题,请教各位!
通过以下主程序调用DLL,(1)结果是WebBrower的Align:=alClient属性没有作用,(2)WebBrower不能用CRTL+C、CRLT+V
请各位赐教,是什么原因导致出现以上情况,解决的方法又如何,多谢!
主程序代码
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
function aa:string;external 'PP.dll' ;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
aa;
end;
end.
DLL文件代码
library PP;
uses
SysUtils,OleCtrls,SHDocVw,Forms, Classes, Controls;
{$R *.res}
var
FF:TForm;
ww:TWebBrowser;
function aa:string;
begin
FF:=TForm.Create(nil);
ww:=TWebBrowser.Create(FF);
ww.ParentWindow:=ff.Handle;
ww.Navigate('www.163.com');
ww.Align:=alClient;
ff.Show;
Result:='OK';
end;
exports aa;
begin
end.