1 SHDocVw_TLB是shdocvw.dll的类型库导入单元，没有的话就改成shdocvw（delphi自带），或者在“Project”菜单下选“Import Type Library”，在弹出的对话框中再选择“Microsoft Internet Controls”，再点“Create Unit”即可。但是把第二个webbrowser改为webbrowser2.但以后其他工程要用就要改回来
<em>Delphi</em>:<em>界面</em>美化,用网页做<em>界面</em>
用TWebBrowser控件
设置显示的网页,如果在本地则写全路径,放到窗体的create或show事件中
var
str:string;
begin
str:=ExtractFilePath(Application.ExeName)+test.html ; //程序目录下的test.html页
webbrowser1.N...
1.利用计时器frmStart :=TfrmStart.Create(Application ); frmStart.Show ; //显示启动窗体 for start_i:=0 to 100 do begin Application.ProcessMessages ; //控制权转让 Sleep(20);//暂停20毫秒 end; frmStart.Free ; frmMain:
用<em>Delphi</em> 做程序的主框架。利用页面做导航窗口，那么如何才让<em>Delphi</em>来响应页面中的单击操作呢？其实很简单1.在主程序中加一个TWebBrowser组件 用它来显示页面2.在BeforeNavigate2事件中处理响应操作 例如： If Pos(varex:0101, URL)>0 Then begin //执行一些操作 SendMessage(frmMain.Han
<em>Delphi</em>中form1是：用户名和密码，用户名输入"test1","test2","test3","test4","test5",
密码都是"123456"，都正确，则进入form2，若用户名错误，弹出消息框"用户名不存在"
，若密码错误，则弹出消息框"密码输入错误"。如何用数组编写form1的代码？
var name:array[1..5] of string;
