网页作程序界面，怎么执行我自己的事件？？？ ( 积分: 100 )

北饮狂刀 · 2005-04-22

我使用TWEBBOWSER，我想使用网页制作界面，当然我使用图像了，，我想单击图像，就执行自己的事件，比如显示程序窗口。
详细----
我的网页部分代码为：
<html>....
<map name="Map">
<area shape="rect" coords="43, 160, 102, 224" href="varex:0106">
<area href="varex:0102" shape="rect" coords="210, 68, 280, 134">
<area href="varex:0104" shape="rect" coords="41, 70, 100, 125">
</map>
..</html>
为了方便，我使用了图像的热点链接，我的链接地址为：varex:0106,varex:0104
我点击图像热点，提取链接，显示我的对话框，不如SHOWMESSAGE...显示窗口。

北饮狂刀 · 2005-04-22

我使用TWEBBOWSER，我想使用网页制作界面，当然我使用图像了，，我想单击图像，就执行自己的事件，比如显示程序窗口。
详细----
我的网页部分代码为：
<html>....
<map name="Map">
<area shape="rect" coords="43, 160, 102, 224" href="varex:0106">
<area href="varex:0102" shape="rect" coords="210, 68, 280, 134">
<area href="varex:0104" shape="rect" coords="41, 70, 100, 125">
</map>
..</html>
为了方便，我使用了图像的热点链接，我的链接地址为：varex:0106,varex:0104
我点击图像热点，提取链接，显示我的对话框，不如SHOWMESSAGE...显示窗口。

月之舞 · 2005-04-22

type
TForm1 = class(TForm)
IE: TWebBrowser;
OD: TOpenDialog;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
procedure FormCreate(Sender: TObject);
procedure IEBeforeNavigate2(Sender: TObject; const pDisp: IDispatch;
var URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
var Cancel: WordBool);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ie.Navigate('D:/xxx/start.html');
end;

procedure TForm1.IEBeforeNavigate2(Sender: TObject; const pDisp: IDispatch;
var URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
var Cancel: WordBool);
begin
if pos('varex',url)>0 then
begin
showmessage(url);
cancel:=True;
end
end;

北饮狂刀 · 2005-04-22

接受答案了.

网页作程序界面，怎么执行我自己的事件？？？ ( 积分: 100 )

北饮狂刀

Unregistered / Unconfirmed

北饮狂刀

Unregistered / Unconfirmed

月之舞

Unregistered / Unconfirmed

北饮狂刀

Unregistered / Unconfirmed

Similar threads