我做了一个小测试,结果是不能自动关闭弹窗,代码如下:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, EmbeddedWB, StdCtrls;type
TForm1 = class(TForm)
EmbeddedWB1: TEmbeddedWB;
Button1: TButton;
function EmbeddedWB1ShowMessage(hwnd: Cardinal; lpstrText,
lpstrCaption: PWideChar; dwType: Integer; lpstrHelpFile: PWideChar;
dwHelpContext: Integer; var plResult: Integer): HRESULT;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}function TForm1.EmbeddedWB1ShowMessage(hwnd: Cardinal; lpstrText,
lpstrCaption: PWideChar; dwType: Integer; lpstrHelpFile: PWideChar;
dwHelpContext: Integer; var plResult: Integer): HRESULT;
var
Text: string;
Caption: PChar;
begin
Caption :='EmbeddedWB Messagebox';
text := lpstrText;
plResult:=Windows.MessageBox(hWnd, Pchar(text), Caption, dwType);
Result := S_OK;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
EmbeddedWB1.Go('www.sina.com.cn');
end;end.
还有什么好的办法,请高手指点。分不够再加分。
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, EmbeddedWB, StdCtrls;type
TForm1 = class(TForm)
EmbeddedWB1: TEmbeddedWB;
Button1: TButton;
function EmbeddedWB1ShowMessage(hwnd: Cardinal; lpstrText,
lpstrCaption: PWideChar; dwType: Integer; lpstrHelpFile: PWideChar;
dwHelpContext: Integer; var plResult: Integer): HRESULT;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}function TForm1.EmbeddedWB1ShowMessage(hwnd: Cardinal; lpstrText,
lpstrCaption: PWideChar; dwType: Integer; lpstrHelpFile: PWideChar;
dwHelpContext: Integer; var plResult: Integer): HRESULT;
var
Text: string;
Caption: PChar;
begin
Caption :='EmbeddedWB Messagebox';
text := lpstrText;
plResult:=Windows.MessageBox(hWnd, Pchar(text), Caption, dwType);
Result := S_OK;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
EmbeddedWB1.Go('www.sina.com.cn');
end;end.
还有什么好的办法,请高手指点。分不够再加分。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货