文件名称:delphi 网页浏览器
文件大小:236KB
文件格式:RAR
更新时间:2013-12-15 10:30:01
delphi 网页浏览器
其中的一些代码: procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin historyindex:=-1; historylist:=tstringlist.Create; speedbutton1.Enabled:=false; speedbutton3.Enabled:=false; listbox1.Visible:=false; if fileexists('net.ini') then begin assignfile(mytextfile,'net.ini'); reset(mytextfile); i:=0; try readln(mytextfile,homepage); combobox1.Text:=homepage; webbrowser1.Navigate(combobox1.Text); finally closefile(mytextfile); end; end; combobox1.Items.Add(combobox1.Text); end; …… …… ……
【文件预览】:
浏览器
----Project1.dof(2KB)
----Unit1.dcu(11KB)
----net.ini(15B)
----Project1.exe(525KB)
----Unit1.dfm(47KB)
----Project1.cfg(418B)
----Project1.dpr(188B)
----Unit1.~dfm(4KB)
----Unit1.pas(6KB)
----Project1.res(876B)
----Unit1.ddp(51B)
----Project1.~dpr(188B)
----Unit1.~pas(6KB)
----Unit1.~ddp(51B)