delphi开发经验技巧...(4)_H5之家 - 中国HTML5教程资源分享第一站

但是DELPHI 中怎样跳格呢? 其实也是有办法的, 就是CTRL+K,I向后, CTRL+K,U向前. 有时候反复输入什么东西是不是很繁? CTRL+SHIFT+R录制键盘宏, 比如我经常做的就是: 下箭头-下箭头-HOME-回车-CTRL+V, 再键入一次CTRL+SHIFT+R录制完成, 之后您可以使用

CTRL+SHIFT+P, 重复宏,还是省了一些事的.

另外在DELIPHI中有一个很有用的快键极其有用

这就是CTRL+J；列如：在一过程中你输入ifb后再按CTRL+J你回去看看效果吧，可能你会

大

吃一惊。这就是Code Insight.

ctrl+shift+u //块缩进/反缩进

ctrl+shift+i

取消书签：在书签N处，再按一次 SHIFT + CTRL + N

Ctrl+E 一种查找挺好的，其余的都被你们说玩了

按住Ctrl再点对象、过程、函数，转到其定义原型，即便是Delphi VCL源代码中的Unit。

ALT+F4 关闭DELPHI [

Ctrl+K+O,Ctrl+K+N 将选中的整块代码都转为小写或大写

Ctrl+F 查找

Ctrl+L 继续查找

在Inspector，可以用Ctrl+Tab切换Properties页和Events页

Ctrl+Enter可进入相应的设置，如在Preperties页的Font按Ctrl+Enter

在Events中按Ctrl+Enter可进入相应代码编辑

Ctrl+Shift+i ：同时推进2格

Ctrl+Shift+u ：同时退后2格[/red]

还有一招，我经常用的，不知大家常不常用

按住ALT用鼠标选择文本

或者按住ALT加SHIFT，用方向键选择文本

没试过就赶快去试试！[] ]

篇四：DELPHI基础开发技巧

先人的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_MACHINE\Software\Microsoft\Windows\CurrentVersion

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]简单的剪贴板操作

richedit1.selectall;

richedit1.copytoclipboard;

richedit1.cuttoclipboard;

edit1.pastefromclipboard;

◇[DELPHI]关于文件、目录操作

Chdir('c:\abcdir');转到目录

Mkdir('dirname');建立目录

Rmdir('dirname');删除目录

GetCurrentDir;//取当前目录名，无'\'

Getdir(0,s);//取工作目录名s:='c:\abcdir';

Deletfile('abc.txt');//删除文件

Renamefile('old.txt','new.txt');//文件更名

ExtractFilename(filelistbox1.filename);//取文件名

ExtractFileExt(filelistbox1.filename);//取文件后缀

◇[DELPHI]处理文件属性

attr:=filegetattr(filelistbox1.filename);

if (attr and faReadonly)=faReadonly then ... //只读

if (attr and faSysfile)=faSysfile then ... //系统

if (attr and faArchive)=faArchive then ... //存档

if (attr and faHidden)=faHidden then ... //隐藏

◇[DELPHI]执行程序外文件

WINEXEC//调用可执行文件

winexec('command.com /c copy *.* c:\',SW_Normal);

winexec('start abc.txt');

ShellExecute或ShellExecuteEx//启动文件关联程序

function executefile(const filename,params,defaultDir:string;showCmd:integer):THandle; ExecuteFile('C:\abc\a.txt','x.abc','c:\abc\',0);

ExecuteFile('','','',0);

ExecuteFile('mailto:tingweb@wx88.net','','',0);

◇[DELPHI]取得系统运行的进程名

var hCurrentWindow:HWnd;szText:array[0..254] of char;

begin

hCurrentWindow:=Getwindow(handle,GW_HWndFrist);

while hCurrentWindow <> 0 do

begin

if Getwindowtext(hcurrnetwindow,@sztext,255)>0 then listbox1.items.add(strpas(@sztext)); hCurrentWindow:=Getwindow(hCurrentwindow,GW_HWndNext);

end;

◇[DELPHI]关于汇编的嵌入

Asm End;

可以任意修改EAX、ECX、EDX；不能修改ESI、EDI、ESP、EBP、EBX。

FloatToStr//浮点转字符串

FloatToStrF//带格式的浮点转字符串

IntToHex//整数转16进制

TimeToStr

DateToStr

DateTimeToStr

FmtStr//按指定格式输出字符串

formatDateTime('YYYY-MM-DD,hh-mm-ss',DATE);

◇[DELPHI]字符串的过程和函数