Delphi基础开发技巧

Delphi基础开发技巧2008-02-02[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]简单的剪贴板操作