Delphi基础开发技巧

豆豆网技术应用频道 2007年07月23日社区交流

内容摘要：本文介绍Delphi基础开发的一些技巧

　　[DELPHI]网络邻居复制文件

uses shellapi;
copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);

　　[DELPHI]产生鼠标拖动效果

　　通过MouseMove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL:

　　var xpanel,ypanel,xlabel,ylabel:integer;

　　PANEL的MouseMove事件:xpanel:=x;ypanel:=y;

　　PANEL的DragOver 事件:xpanel:=x;ypanel:=y;

　　LABEL的MouseMove事件:xlabel:=x;ylabel:=y;

　　LABEL的EndDrag 事件:label.left:=xpanel-xlabel;label.top:=ypanel-ylabel;

　　[DELPHI]取得WINDOWS目录

uses shellapi;
var windir:array[0..255] of char;
getwindowsdirectory(windir,sizeof(windir));

　　或者从注册表中读取,位置:

HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersion

　　SystemRoot键,取得如:C:WINDOWS

　　[DELPHI]在FORM或其他容器上画线

var x,y:array [0..50] of integer;
canvas.pen.color:=clred;
canvas.pen.style:=psDash;
form1.canvas.moveto(trunc(x[i]),trunc(y[i]));
form1.canvas.lineto(trunc(x[j]),trunc(y[j]));

　　[DELPHI]字符串列表使用

var tips:tstringlist;
tips:=tstringlist.create;
tips.loadfromfile('filename.txt');
edit1.text:=tips[0];
tips.add('last line addition string');
tips.insert(1,'insert string at NO 2 line');
tips.savetofile('newfile.txt');
tips.free;

　　[DELPHI]简单的剪贴板操作

12 3 4 5 6 7 8 9 10 下一页

责编：豆豆技术应用

点击搜索更多"Delphi"相关信息

点击发表评论

正在加载评论...