看一下下面两个事件,可能是你所需要的东东
procedure TForm1.WebBrowser1TitleChange(Sender: TObject;
const Text: WideString);
begin
label1.Caption := text ;
end;
procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject;
const Text: WideString);
begin
label2.Caption := text ;
end;
procedure TForm1.WebBrowser1TitleChange(Sender: TObject;
const Text: WideString);
begin
label1.Caption := text ;
end;
procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject;
const Text: WideString);
begin
label2.Caption := text ;
end;
解决方案 »
- 关于delphi中webbrowers应用问题
- ???请问什么报表自带的能导出Excel、pdf、html、CSV文件、文本文件、图像文件,以前用过,忘了是什么报表了???
- 新手请教一个delphi8记事本的源代码!!
- 如何枚举出系统中的所有串口
- why???急
- 300分求自适应算法!!!!
- 我的程序没有标题栏,如何让它在失去焦点的时候变灰?
- 如何训练一个语言基础比较差的程序员的逻辑思维?
- 调试时出现''字符常数未终止'怎么改呀
- 我现在正在学习Delphi,但我不知道以后的路该怎么走?该学什么?
- 关于 ADO 的 CancelBatch,,,,,
- 学习或研究用Delphi写ISAPI/CGI程序吗?完全源码公开
回答第2种情况。先把网页中的内容生成string,具体方法http://aton.126.com
再用ansipos函数判断