在使用TCppWebBrowser时，如何实现鼠标指到一个超链上在状态栏显示这个超链的URL？
如题 问题点数：100、回复次数：7Top
1 楼HUANG_JH（保卫钓鱼岛）回复于 2002-03-11 09:28:47 得分 0
添加一个ApplicationEvents1
在OnIdle添加
void __fastcall TfrmMain::AppEventsIdle(TObject *Sender, bool &Done)
{
StatusBar->Panels->Items[0]->Text = CppWebBrowser->Busy ?
AnsiString("Loading...") : AnsiString("Complete");
StatusBar->Panels->Items[1]->Text = "LocationURL: " +
AnsiString(CppWebBrowser->LocationURL);
}
即可
Top
2 楼bilyx（无言）回复于 2002-03-11 09:44:08 得分 10
可使用OnStatusTextChange事件Top
3 楼dev_uoboy（【世界】）回复于 2002-03-11 10:35:36 得分 0
兄弟，好象没看见你说的Onldle哪个事件啊？
在哪个控件里的哦？Top
4 楼COKING（天晴）回复于 2002-03-11 11:02:10 得分 10
Use the "OnStatusTextChange" events of CppWebBrowserTop
5 楼jintaocom（贫民张大嘴）回复于 2002-03-11 11:08:17 得分 10
可使用OnStatusTextChange事件
void __fastcall TMainForm::CppWebBrowser1StatusTextChange(TObject *Sender, BSTR URL)
{
StatusBar1->Panels->Items[0]->Text=URL;
NextURL = URL;
if ((NextURL.SubString(1,12) == "正在打开网页")
|| ( NextURL.SubString(1,4) == "完成")
|| (NextURL.SubString(3,8) == "项剩余") )
{
NextURL ="\0";
}
}Top
6 楼zzy_china（菜鸟想学飞）回复于 2002-03-11 11:23:23 得分 70
// .cpp ----------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CppWebBrowser1StatusTextChange(TObject *Sender,
BSTR URL)
{
StatusBar1->SimpleText = URL;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
WideString url = "www.sky-info.com";
CppWebBrowser1->Navigate(url);
}
// .h----------------------
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "SHDocVw_OCX.h"
#include <ComCtrls.hpp>
#include <OleCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TStatusBar *StatusBar1;
TCppWebBrowser *CppWebBrowser1;
TButton *Button1;
void __fastcall CppWebBrowser1StatusTextChange(TObject *Sender, BSTR URL);
void __fastcall Button1Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
Top
7 楼HUANG_JH（保卫钓鱼岛）回复于 2002-03-11 17:21:33 得分 0
很多人都不太喜欢用ApplicationEvents
其实很好用的！
在Additional 页倒数第2个控件
Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
