其实我不知道飓风搜索通具体是怎么做的,但可能是用类似的原理。至少我是用这种方法做的。以下是我程序中的一段代码,希望对你有帮助。 For i:=0 to High(Links) do begin TabCtl.Tabs.Add(Links[i].Name); SetLength(Web,Index+1); Web[Index]:=TWebFrameFrm.Create(Self); //创建了一个实例 Web[Index].Name:='Web'+IntToStr(Index); Web[Index].Parent:=WebBrowseFrm.ClientPanel; Web[Index].Align:=alClient; Web[Index].Visible:=false; Web[Index].Tag:=Index; Web[Index].Label1.Caption:=Links[i].Name; Web[Index].Label2.Caption:=Links[i].Name; Web[Index].Panel2.Width:=Web[Index].Label1.Width+35; Web[Index].WebBrowser1.OleObject.Navigate(Links[i].Url); Inc(Index); end; Web[0].Visible:=true;在Form的Close中 for i:=0 to High(Web) do Web[i].Free; //释放所有实例
最好是做一个关于delphi网络开发方面的专题
还有做foxmail的张小龙,也很厉害,要是能一起请来就更是我等菜鸟的幸事!
支持我的建议者敬请UP
多谢!!!
只要用exescope看一下,如果有RCDATA就说明是delphi的 作品了
For i:=0 to High(Links) do
begin
TabCtl.Tabs.Add(Links[i].Name);
SetLength(Web,Index+1);
Web[Index]:=TWebFrameFrm.Create(Self); //创建了一个实例
Web[Index].Name:='Web'+IntToStr(Index);
Web[Index].Parent:=WebBrowseFrm.ClientPanel;
Web[Index].Align:=alClient;
Web[Index].Visible:=false;
Web[Index].Tag:=Index;
Web[Index].Label1.Caption:=Links[i].Name;
Web[Index].Label2.Caption:=Links[i].Name;
Web[Index].Panel2.Width:=Web[Index].Label1.Width+35;
Web[Index].WebBrowser1.OleObject.Navigate(Links[i].Url);
Inc(Index);
end;
Web[0].Visible:=true;在Form的Close中
for i:=0 to High(Web) do Web[i].Free; //释放所有实例