现在很多使用html页面形式的界面设计,原理是什么?是利用Twebbrower么?如何和页面中的数据进行交互啊?
解决方案 »
- 求一控件! 具體就是 ProgressBar + TrackBar 的組合,最好有 Source,用來學習!
- 急求助!!如何能实现无需smtp服务器发送邮件?
- intraweb问题 -csdn的高手哪去了!!!
- 能不能给断读写txt文件的代码??
- 如何实现ping的功能?
- 续“急救!!急救!!在SQL Server 2000管理器中误删除了一个数据库!”,现在数据库文件已经恢复,但是建库总提示“日志文件出错”??
- 几个菜鸟问题
- 在程序运行时,动态地向Memu中添加五个菜单命令,那如何给它们量身定做事件(点击事件)
- 应用程序
- 请问delphi中的发声函数,高分!!
- 数据模板的问题。。。出错了。。
- FastReport的累加问题!
procedure Tuejxcf.WebBrowserBeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var hintname:string;
i,j,k:integer;
begin
hintname:=extractfilename(url);
cancel:=true;
for i:=0 to mainmenu.Items.Count-1 do
if mainmenu.Items.Items[i].Hint=hintname then
begin
mainmenu.Items.Items[i].Click;
exit;
end else
for j:=0 to uejxcf.Menu.Items[i].Count-1 do
if mainmenu.Items.Items[i].Items[j].Hint=hintname then
begin
mainmenu.Items.Items[i].Items[j].Click;
exit;
end else
for k:=0 to uejxcf.Menu.Items[i].Items[j].Count-1 do
if mainmenu.Items.Items[i].Items[j].Items[k].hint=hintname then
begin
mainmenu.Items.Items[i].Items[j].Items[k].Click;
exit;
end
end;