摘要：
方案->......
摘要：
在delphi中,要调用chm文件可以通过引用hhctrl.ocx文件的函数htmlhelpa实现。
不过在这里，我们也可以使用api函数shellexecute来打开chm帮助文件。
在网上找到的资料，通常以
shellexecute(self.handle,open,help.chm,, ,sw_show);?
的方式来实现。
但有个不足，就是不能打开指定的帮助页面，所显示的是帮助......
利用Delphi中的画布画树上一页 ... olst : tlist; selid : string; 【程序编程相关:
delphi连接数据库浅谈】 【推荐阅读:
开发一个密码查看器】 root : boolean; 【扩展信息:
Delphi开发Web应用程序打印组件】 searilid : integer; procedure drawnode(id:string); procedure addobj(id:string;x,y:integer;typeno:integer;selected:boolean;fnode:string;showed:boolean); function getobj(id : string): tobj; function getpobj(id:string): pointer; function getselect: tobj; function haveselect:boolean; function clickobj(x,y:integer):string; procedure drawfull; procedure setselected(x,y:integer); function setshowsel(x,y:integer):tobj; procedure setfnode(id:string); procedure setcnode(id:string); procedure clearshowed; procedure clearcanvas; procedure moveobj(dx,dy:integer); procedure movenode(dx,dy:integer;id:string); procedure movelocal(dx,dy:integer); //procedure public { public declarations } end;
var
frm_tree: tfrm_tree;
implementation
{$r *.dfm}
{ tform1 }
procedure tfrm_tree.drawnode(id:string);
var oldbrushcolor: tcolor; oldpencolor: tcolor; obj:tobj; begin obj:=getobj(id);
with frm_tree.paintbox1.canvas do
begin if obj.showed then begin oldbrushcolor:=brush.color; oldpencolor:=pen.color; if obj.selected then begin pen.color:=rgb(255,0,0); end; brush.color:=$00ff31ff; ellipse(obj.centerx-10,obj.centery-10,obj.centerx+10,obj.centery+10); pen.color:=$00ff31ff; if obj.typeno>0 then begin moveto(obj.centerx,obj.centery); lineto(getobj(obj.fnode).centerx,getobj(obj.fnode).centery); end; pen.color:=oldpencolor; brush.color:=oldbrushcolor; end; end; end;
procedure tfrm_tree.paintbox1mousedown(sender: tobject;
button: tmousebutton; shift: tshiftstate; x, y: integer); var curobj:tobj; begin if button= mbleft then begin case toolno of ...
下一页 摘要：
引 言
这篇文章最先发表于2000年07月25日，最后一次修改是在2001年02月07日。这里再次贴出的目的，一是作为前一阶段的完结，所以文章中的错误都不作修改；二是希望作为一个新的起点。我准备整理一下至今所积累的浏览器编程的知识，比较完整地写出来，与网友共勉。
twebbrowser编程简述
摘要：delphi 3开始有了twebbrowser构件，不过那时是以activex控件的形......
