L
liyu
Unregistered / Unconfirmed
GUEST, unregistred user!
請問在Delphi5 ActiveForm中如何控制瀏覽器返回上頁﹐下頁﹗
注﹕本人在IE5中瀏覽ActiveForm時,當移動IE滾動條時出現Form"花屏"
注﹕本人在IE5中瀏覽ActiveForm時,當移動IE滾動條時出現Form"花屏"
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
C
cm
Unregistered / Unconfirmed
GUEST, unregistred user!
我也遇到了这种问题,
W
wangxd
Unregistered / Unconfirmed
GUEST, unregistred user!
go on
L
liyu
Unregistered / Unconfirmed
GUEST, unregistred user!
To:cm
有關在ActiveForm中控制IE上一頁,下一頁是否找到,煩請轉告!
有關在ActiveForm中控制IE上一頁,下一頁是否找到,煩請轉告!
C
chunhui
Unregistered / Unconfirmed
GUEST, unregistred user!
hlinkgoback (comobject);
就可以
就可以
L
liyu
Unregistered / Unconfirmed
GUEST, unregistred user!
To:ChunHui
謝謝你的指教,煩請詳細告知hlinkgoback(ComObject)的用法,在Delphi及API中無法找到
其Help,也不知它包含在哪個Unit中(真笨).煩請轉告,這個問題我已困惑很久了!
謝謝你的指教,煩請詳細告知hlinkgoback(ComObject)的用法,在Delphi及API中無法找到
其Help,也不知它包含在哪個Unit中(真笨).煩請轉告,這個問題我已困惑很久了!
S
snake
Unregistered / Unconfirmed
GUEST, unregistred user!
这分我要了，
找到axctrls.pas,修改，编译，覆盖lib/axctrls.dcu
function TActiveXControl.SetObjectRects(const rcPosRect: TRect;
const rcClipRect: TRect): HResult;
var
WinRect: TRect;
begin
try
IntersectRect(WinRect, rcPosRect, rcClipRect);
FWinControl.BoundsRect := WinRect;
~~~~~~~改成rcPosRect
Result := S_OK;
except
Result := HandleException;
end;
end;
找到axctrls.pas,修改，编译，覆盖lib/axctrls.dcu
function TActiveXControl.SetObjectRects(const rcPosRect: TRect;
const rcClipRect: TRect): HResult;
var
WinRect: TRect;
begin
try
IntersectRect(WinRect, rcPosRect, rcClipRect);
FWinControl.BoundsRect := WinRect;
~~~~~~~改成rcPosRect
Result := S_OK;
except
Result := HandleException;
end;
end;
L
liyu
Unregistered / Unconfirmed
GUEST, unregistred user!
To:snake
謝謝你的指教,在瀏覽器中"花屏"問題現已解決了,但在ActiveForm中如何控制返回到
IE的上一頁.Chunhui說可用hlinkgoback(ComObject)來實現,但我卻不知如何用?懇請指教!
謝謝你的指教,在瀏覽器中"花屏"問題現已解決了,但在ActiveForm中如何控制返回到
IE的上一頁.Chunhui說可用hlinkgoback(ComObject)來實現,但我卻不知如何用?懇請指教!
S
snake
Unregistered / Unconfirmed
GUEST, unregistred user!
uses
UrlMon;
Hlinkgoback(IUnkonwn(VCLObject));//退
Hlinkgoforward(IUnkonwn(VCLObject));//进
hlinknavigatString(IUnkonwn(VCLObject),'http://www.delphibbs.com/delphibbs');指定
UrlMon;
Hlinkgoback(IUnkonwn(VCLObject));//退
Hlinkgoforward(IUnkonwn(VCLObject));//进
hlinknavigatString(IUnkonwn(VCLObject),'http://www.delphibbs.com/delphibbs');指定
L
liyu
Unregistered / Unconfirmed
GUEST, unregistred user!
To Snake:
非常感謝你對我的幫助,對于控制IE上頁,下頁,按照你的方法測試,會在IE中根據
hlinknavigatString指定的URL產生新的一頁,但我不需要產生新頁,只要求返回上頁,因為
上頁包含我的主菜單.煩請多指教(再加50分)!
非常感謝你對我的幫助,對于控制IE上頁,下頁,按照你的方法測試,會在IE中根據
hlinknavigatString指定的URL產生新的一頁,但我不需要產生新頁,只要求返回上頁,因為
上頁包含我的主菜單.煩請多指教(再加50分)!
S
snake
Unregistered / Unconfirmed
GUEST, unregistred user!
上面三个过程我都测试过，我这里没有产生新页面，一切正常。
你可以new一个activexform光放三个按钮再测试一下，urlmon里还有很多方法你
可以看一下。
你可以new一个activexform光放三个按钮再测试一下，urlmon里还有很多方法你
可以看一下。
L
liyu
Unregistered / Unconfirmed
GUEST, unregistred user!
To:Snake
謝謝你的答復,我測試了這三個過程的使用:其中執行hlinknavigatString()時產生一新頁
面,而執行Hlinkgoback()及Hlinkgoforward()時卻什么動作都沒有,我想可能是這兩個過程
的參數傳送錯了(我是用hlinknavigatString的第一個參數Iunknown傳入),拜托你祥細告訴
我這兩個過程的傳數宣告及獲得.(不然今晚又睡不著覺了,拜托!!!手頭沒資料可查又沒有在
線幫助,實在頭痛)!
謝謝你的答復,我測試了這三個過程的使用:其中執行hlinknavigatString()時產生一新頁
面,而執行Hlinkgoback()及Hlinkgoforward()時卻什么動作都沒有,我想可能是這兩個過程
的參數傳送錯了(我是用hlinknavigatString的第一個參數Iunknown傳入),拜托你祥細告訴
我這兩個過程的傳數宣告及獲得.(不然今晚又睡不著覺了,拜托!!!手頭沒資料可查又沒有在
線幫助,實在頭痛)!
L
liyu
Unregistered / Unconfirmed
GUEST, unregistred user!
To:Snake
搞定了,的確是參數傳錯了,接分吧!
搞定了,的確是參數傳錯了,接分吧!
S
snake
Unregistered / Unconfirmed
GUEST, unregistred user!
老兄，你的浏览器会不会只有一页？这样就没有前进和后退了，你先浏览几个网页在用
这几个过程试试看。
这几个过程试试看。
L
liyu
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.