DELPHI学习教程文档格式.docx

DELPHI学习教程文档格式.docx

《DELPHI学习教程文档格式.docx》由会员分享，可在线阅读，更多相关《DELPHI学习教程文档格式.docx（66页珍藏版）》请在冰豆网上搜索。

将选中的代码整体右移两个字符宽度

Ctrl+Shift+上下方向键 

在过程或函数的声明和实现之间切换

Ctrl+Shift+ 

0~9 

在光标所在行 

设置/取消 

书签

Ctrl+0~9 

返回到书签所在位置

Ctrl+J 

插入标准语法（本文最后有示例）

Ctrl+Y 

删除光标所在行

Ctrl+Q+Y 

删除光标位置后改行的内容

Ctrl+BackSpace 

删除光标前一个单词

Ctrl+K+E 

将所选单词全部转换为小写

Ctrl+K+F 

将所选的单词全部转换为大写

Ctrl+O+U 

将所选的单词作大小写转化

Ctrl+Home 

到达单元头部

Ctrl+End 

到达单元尾部

Ctrl+F 

调出搜索对话框

F3 

继续搜索

Ctrl+R 

调出替换对话框

Ctrl+Shift+G 

插入GUID号

Ctrl+Shift+C 

完成一声明类的实现

Ctrl+Shift+T 

插入 

TO-DO 

List（强烈推荐使用ToDo 

List，可以简单写成

“//TODO：

你要写的内容”通过菜单 

View|To-Do 

List 

即可

察看）

[注意] 

所有的数字键不能使用小键盘上的数字键。

3程序调试类

F5 

设置/取消设置程序的断点

F7 

逐步调试，调试深入每一个相关的子函数/过程体内

F8 

单步调试，但是不进入到相关的子函数/过程体内

F9 

编译并运行（可以设置断点进行调试）

Ctrl+F3 

调出 

Call 

Stack 

窗口

Ctrl+F9 

只编译不运行

Alt+F2 

CPU 

视图窗口 

Ctrl+F2 

结束程序调试运行状态，回到程序编辑状态

Ctrl+F7 

观察代码的值并附加新值（采用Modify功能）进行调试

Ctrl+F5 

查看对象在不同数据类型下的值的情况

4程序管理类

F11 

在Form/Unit 

和 

Object 

Inspector 

之间切换

F12 

在Form 

Unit 

Ctrl+F11 

显示“Open 

Project”对话框

显示“查看Unit”对话框

显示“查看Form”对话框

Shift+F11 

调出“Add 

To 

Ctrl+Shift+F11 

弹出Project 

Options（工程管理器） 

Shift+Alt+F11 

TreeView 

一 

Ctrl+J示例：

输入 

i 

之后 

，按Ctrl+J

显示有ifb 

ife 

ifeb 

ifs四个选项 

ifb 

对应：

if 

then

begin

end;

else

ifeb对应：

end

ifs对应：

2输入 

fu 

后按Ctrl+J生成代码：

function 

（）:

;

3 

pr 

procedure 

（）;

4 

f 

后按Ctrl+J 

选择 

forb生成代码：

for 

:

= 

to 

do

还有更多，自己试试吧。

二 

Ctrl+Shift+C示例

1

type

TForm1 

class（TForm）

private

Foo;

//使光标此行，按 

public

Delphi自动生成：

TForm1.Foo;

2

class（TForm） 

private 

property 

Mark:

integer 

read 

GetMark 

write 

SetMark;

Ctrl+

Shift+C 

代码变为：

GetMark:

integer;

//此行自动生成

SetMark（const 

Value:

integer）;

以下代码自动生成：

TForm1.GetMark:

TForm1.SetMark（const 

◇[DELPHI]网络邻居复制文件

usesshellapi;

copyfile（pchar（'

newfile.txt'

）,pchar（'

//computername/direction/targer.txt'

）,false）;

◇[DELPHI]产生鼠标拖动效果

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

varxpanel,ypanel,xlabel,ylabel:

PANEL的MouseMove事件：

xpanel:

=x;

ypanel:

=y;

PANEL的DragOver事件：

LABEL的MouseMove事件：

xlabel:

ylabel:

LABEL的EndDrag事件：

label.left:

=xpanel-xlabel;

label.top:

=ypanel-ylabel;

◇[DELPHI]取得WINDOWS目录

varwindir:

array[0..255]ofchar;

getwindowsdirectory（windir,sizeof（windir））;

或者从注册表中读取，位置：

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion

SystemRoot键，取得如：

C:

\WINDOWS

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

varx,y:

array[0..50]ofinteger;

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]字符串列表使用

vartips:

tstringlist;

tips:

=tstringlist.create;

tips.loadfromfile（'

filename.txt'

）;

edit1.text:

=tips[0];

tips.add（'

lastlineadditionstring'

tips.insert（1,'

insertstringatNO2line'

tips.savetofile（'

tips.free;

◇[DELPHI]简单的剪贴板操作

richedit1.selectall;

richedit1.copytoclipboard;

richedit1.cuttoclipboard;

edit1.pastefromclipboard;

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

Chdir（'

c:

\abcdir'

转到目录

Mkdir（'

dirname'

建立目录

Rmdir（'

删除目录

GetCurrentDir;

//取当前目录名，无'

\'

Getdir（0,s）;

//取工作目录名s:

='

Deletfile（'

abc.txt'

//删除文件

Renamefile（'

old.txt'

'

new.txt'

//文件更名

ExtractFilename（filelistbox1.filename）;

//取文件名

ExtractFileExt（filelistbox1.filename）;

//取文件后缀

◇[DELPHI]处理文件属性

attr:

=filegetattr（filelistbox1.filename）;

if（attrandfaReadonly）=faReadonlythen...//只读

if（attrandfaSysfile）=faSysfilethen...//系统

if（attrandfaArchive）=faArchivethen...//存档

if（attrandfaHidden）=faHiddenthen...//隐藏

◇[DELPHI]执行程序外文件

WINEXEC//调用可执行文件

winexec（'

/ccopy*.*c:

SW_Normal）;

startabc.txt'

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

functionexecutefile（constfilename,params,defaultDir:

string;

showCmd:

integer）:

THandle;

ExecuteFile（'

\abc\a.txt'

x.abc'

\abc\'

0）;

'

mailto:

tingweb@'

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

varhCurrentWindow:

HWnd;

szText:

array[0..254]ofchar;

begin

hCurrentWindow:

=Getwindow（handle,GW_HWndFrist）;

whilehCurrentWindow<

>

0do

ifGetwindowtext（hcurrnetwindow,@sztext,255）>

0thenlistbox1.items.add（strpas（@sztext））;

=Getwindow（hCurrentwindow,GW_HWndNext）;

◇[DELPHI]关于汇编的嵌入

AsmEnd;

可以任意修改EAX、ECX、EDX；

不能修改ESI、EDI、ESP、EBP、EBX。

◇[DELPHI]关于类型转换函数

FloatToStr//浮点转字符串

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

IntToHex//整数转16进制

TimeToStr

DateToStr

DateTimeToStr

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

FormatDateTime（'

YYYY-MM-DD,hh-mm-ss'

DATE）;

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

Insert（obj,target,pos）;

//字符串target插入在pos的位置。

如插入结果大于target最大长度，多出字符将被截掉

。

如Pos在255以外，会产生运行错。

例如，st:

Brian'

，则Insert（'

OK'

st,2）会使st变为'

BrOKian'

Delete（st,pos,Num）;

//从st串中的pos（整型）位置开始删去个数为Num（整型）个字符的子字串。

例

如，st:

，则Delete（st,3,2）将变为Brn。

Str（value,st）;

//将数值value（整型或实型）转换成字符串放在st中。

例如，a=2.5E4时，则str（a:

10,st）将使st的

值为'

25000'

Val（st,var,code）;

//把字符串表达式st转换为对应整型或实型数值，存放在var中。

St必须是一个表示数值的字符

串，并符合数值常数的规则。

在转换过程中，如果没有检测出错误，变量code置为0，否则置为第一个出错字

符的位置。

=25.4E3,x是一个实型变量，则val（st,x,code）将使X值为25400，code值为0。

Copy（st.pos.num）;

//返回st串中一个位置pos（整型）处开始的，含有num（整型）个字符的子串。

如果pos大

于st字符串的长度，那就会返回一个空串，如果pos在255以外，会引起运行错误。

，则Copy（st,2,2）返回'

ri'

Concat（st1,st2,st3……,stn）;

//把所有自变量表示出的字符串按所给出的顺序连接起来，并返回连接后的值。

如

果结果的长度255，将产生运行错误。

例如，st1:

st2:

'

st3:

Wilfred'

，则Concat（st1,st2,st3）返

回'

BrianWilfred'

Length（st）;

//返回字符串表达式st的长度。

，则Length（st）返回值为5。

Pos（obj,target）;

//返回字符串obj在目标字符串target的第一次出现的位置，如果target没有匹配的串，Pos函数

的返回值为0。

例如，target:

，则Pos（'

Wil'

target）的返回值是7，Pos（'

hurbet'

target）的返回值

是0。

◇[DELPHI]关于处理注册表

usesRegistry;

varreg:

Tregistry;

reg:

=Tregistry.create;

reg.rootkey:

HKey_Current_User'

reg.openkey（'

ControlPanel\Desktop'

false）;

reg.WriteString（'

TitleWallpaper'

0'

reg.writeString（'

Wallpaper'

filelistbox1.filename）;

reg.closereg;

reg.free;

◇[DELPHI]关于键盘常量名

VK_BACK/VK_TAB/VK_RETURN/VK_SHIFT/VK_CONTROL/VK_MENU/VK_PAUSE/VK_ESCAPE

/VK_SPACE/VK_LEFT/VK_RIGHT/VK_UP/VK_DOWN

F1--F12：

$70（112）--$7B（123）

A-Z：

$41（65）--$5A（90）

0-9：

$30（48）--$39（57）

◇[DELPHI]初步判断程序母语

DELPHI软件的DOS提示：

ThisProgramMustBeRunUnderWin32.

VC++软件的DOS提示：

ThisProgramCannotBeRunInDOSMode.

◇[DELPHI]操作Cookie

response.cookies（"

name"

）.domain:

withresponse.cookies.adddo

name:

username'

value:

end

◇[DELPHI]增加到文档菜单连接

usesshellapi,shlOBJ;

shAddToRecentDocs（shArd_path,pchar（filepath））;

//增加连接

shAddToRecentDocs（shArd_path,nil）;

//清空

◇[杂类]备份智能ABC输入法词库

windows\system\user.rem

windows\system\tmmr.rem

◇[DELPHI]判断鼠标按键

ifGetAsyncKeyState（VK_LButton）<

0then...//左键

ifGetAsyncKeyState（VK_MButton）<

0then...//中键

ifGetAsyncKeyState（VK_RButton）<

0then...//右键

◇[DELPHI]设置窗体的最大显示

onFormCreate事件

self.width:

=screen.width;

self.height:

=screen.height;

◇[DELPHI]按键接受消息

OnCreate事件中处理：

Application.OnMessage:

=MyOnMessage;

procedureTForm1.MyOnMessage（varMSG:

TMSG;

varHandle:

Boolean）;

ifmsg.message=256then...//ANY键

ifmsg.message=112then...//F1

ifmsg.message=113then...//F2

◇[杂类]隐藏共享文件夹

共享效果：

可访问，但不可见（在资源管理、网络邻居中）

取共享名为：

direction$

访问：

//computer/dirction/

◇[JavaScript]JavaScript网页常用效果

网页60秒定时关闭

<

scriptlanguage="

javascript"

!

--

settimeout（'

window.close（）;

60000）

-->

/script>

关闭窗口

ahref="

/"

onclick="

javascript:

returnfalse;

"

关闭<

/a>

定时转URL

metahttp-equiv="

refresh"

content="

40;

url="

设为首页

a

onclick="

this.style.behavior='

url（#default#homepage）'

this.sethomepage（'

href="

#"

设

为首页<

收藏本站

window.external.addfavorite（'

[未名码头]'

）"

收藏本站<

加入频道

window.external.addchannel（'

加入频道<

◇[DELPHI]文本编辑相关

checkbox1.checked:

=notcheckbox1.checked;

ifcheckbox1.checkedthenrichedit1.font.style:

=richedit1.font.style+[fsBold]else

richedit1.font.style:

=richedit1.font.style-[fsBold]//粗体

=richedit1.font.style+[fsIt