Delphi 中根据鼠标位置获取网页元素
[ 2010-12-10 12:33 | by 草山湖 ]
根据鼠标位置获取网页元素,主要是对 IHTMLDocument2 方法 elementFromPoint 的使用
with TWebBrowserWithUI(Sender) do
begin
pt := Mouse.CursorPos;
pt := ScreenToClient(pt);
if PtInRect(Rect(Left, Top, Left + Width, Top + Height), pt) then
try
elem := nil;
elem := (Document as IHTMLDocument2).elementFromPoint(pt.X, pt.Y);
if (elem <> nil) and ((elem.tagName = 'A') or (elem.tagName = 'IMG'))
then
begin
url := elem.getAttribute('href', 0);
CreateSheet(url);
end;
except
on E: Exception do
ShowMessage(e.Message);
end;
end;
Cancel := True;
with TWebBrowserWithUI(Sender) do
begin
pt := Mouse.CursorPos;
pt := ScreenToClient(pt);
if PtInRect(Rect(Left, Top, Left + Width, Top + Height), pt) then
try
elem := nil;
elem := (Document as IHTMLDocument2).elementFromPoint(pt.X, pt.Y);
if (elem <> nil) and ((elem.tagName = 'A') or (elem.tagName = 'IMG'))
then
begin
url := elem.getAttribute('href', 0);
CreateSheet(url);
end;
except
on E: Exception do
ShowMessage(e.Message);
end;
end;
Cancel := True;
Delphi - 被廉价甩卖的传奇
[ 2008-07-09 17:50 | by 草山湖 ]
2008年5月，全球的目光似乎都在关注微软与雅虎百亿收购的暗战，当雅虎在为500亿还是400亿的价钱出卖自己这个问题所困扰时，昔日微软王朝的挑战者——Borland公司却以2300万美元的价格将曾经为自己奠定传奇的IDE(Integrated Develop Environment：集成开发环境)业务出售给了另一家公司，除了少数Borland铁杆支持者发表了部分追忆式的惋惜外，这条新闻几乎没有引起任何美国主流IT媒体关注，变涟漪消失在微软并购案的新闻海洋之中……
如何使用Dev-Pascal
[ 2008-02-04 15:25 | by 草山湖 ]
说到pascal语言，我们就会想到delphi，以前练习pascal就是在delphi IDE中编写的，delphi的确是一个很好的东西。
后来在网上找到了一个pascal编译器：dev-pascal。这个软件免费，很好用，下面说一下如何使用此软件来编写pascal程序。
1， 先下载Dev-Pascal，网址：http://www.bloodshed.net/devpascal.html
2， 安装Dev-Pascal。（这个简单，这里不说了）
3， 找到 devpas.exe ，双击打开就可以编写pascal了，界面如下：
不过刚开始使用Dev-Pascal的时候，出现了错误，就像第二张图一样，后来还是被我解决了，具体解决方法请看下面的图示。
后来在网上找到了一个pascal编译器：dev-pascal。这个软件免费，很好用，下面说一下如何使用此软件来编写pascal程序。
1， 先下载Dev-Pascal，网址：http://www.bloodshed.net/devpascal.html
2， 安装Dev-Pascal。（这个简单，这里不说了）
3， 找到 devpas.exe ，双击打开就可以编写pascal了，界面如下：
不过刚开始使用Dev-Pascal的时候，出现了错误，就像第二张图一样，后来还是被我解决了，具体解决方法请看下面的图示。
