N
nines
Unregistered / Unconfirmed
GUEST, unregistred user!
我在BeforeNavigate2的事件中
这样设置了:
procedure TForm1.EmbeddedWB1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var
u:OleVariant;
begin
U := 'Http://www.borland.com/';
Url := U;
end;
但就是不好用,连接的url 还是原来的Url,谁肯赐教?????????
这样设置了:
procedure TForm1.EmbeddedWB1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var
u:OleVariant;
begin
U := 'Http://www.borland.com/';
Url := U;
end;
但就是不好用,连接的url 还是原来的Url,谁肯赐教?????????