📄 129.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>CTerm非常精华下载</title>
</head>
<body bgcolor="#FFFFFF">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="577">
<tr><td width="32%" rowspan="3" height="123"><img src="DDl_back.jpg" width="300" height="129" alt="DDl_back.jpg"></td><td width="30%" background="DDl_back2.jpg" height="35"><p align="center"><a href="http://bbs.tsinghua.edu.cn"><font face="黑体"><big><big>水木清华★</big></big></font></a></td></tr>
<tr>
<td width="68%" background="DDl_back2.jpg" height="44"><big><big><font face="黑体"><p align="center"> Delphi编程 (BM: strayli FlyingBoy) </font></big></big></td></tr>
<tr>
<td width="68%" height="44" bgcolor="#000000"><font face="黑体"><big><big><p align="center"></big></big><a href="http://cterm.163.net"><img src="banner.gif" width="400" height="60" alt="banner.gif"border="0"></a></font></td>
</tr>
<tr><td width="100%" colspan="2" height="454"> <p align="center">[<a href="index.htm">回到开始</a>][<a href="100.htm">上一层</a>][<a href="130.htm">下一篇</a>]
<hr><p align="left"><small>返回程序执行参数 <br>
<br>
有关 Delphi 传入应用程式的命令列参数, 请参考以下的说明： <br>
用ParamCount函数取得命令参数的个数: <br>
呼叫 ParamStr(0), 传回执行档的档名(含路径) <br>
呼叫 ParamStr(n), 传回第ｎ个参数的内容 <br>
procedure TForm1.FormCreate(Sender: TObject); <br>
var <br>
sFileName: string; <br>
begin <br>
if ParamCount > 0 then begin (* 有执行参数传入 *) <br>
sFileName := ParamStr(1); (* 取得参数内容 *) <br>
if FileExists(sFileName) then <br>
Memo1.Lines.LoadFromFile(sFileName) <br>
else <br>
Application.MessageBox('找不到指定的档案', '讯息', 48); <br>
end; <br>
end; <br>
<br>
转让控制权 <br>
<br>
有时由于长时间的循环语句占用了cpu的处理权，无法运行 其他程序，照成死循 <br>
环。这时用以下命令转让控制权，让操作系统处理其他事件。 <br>
Application.ProcessMessages; <br>
<br>
关闭Windows <br>
<br>
控制WINDOWS的开关：如关闭WINDOWS，重新启动WINDOWS等, ExitWindowsEx(UINT <br>
uFlags,DWORD dwReserved);是实现这一功能的API函数 <br>
首先定义常数 <br>
const <br>
EWX_FORCE=4; //关闭所有程序并以其他用户身份登录 <br>
EWX_LOGOFF=0; //重新启动计算机并切换到MS-DOS方式 <br>
EWX_REBOOT=2; //重新启动计算机 <br>
EWX_SHUTDOWN=1;//关闭计算机 <br>
运行时给How赋值，让他等于EWX_SHUTDOWN或其他，调用以下语句 <br>
ExitWindowsEx(How,0); <br>
<br>
实现超级链接 <br>
<br>
在程序中实现打开浏览器，打开邮件程序的功能首先要在uses部分加入 <br>
uses Shellapi; <br>
接着在需要超级链接的地方使用 <br>
SellExecute(handle,nil,pchar('mailto:guihong@163.net'),nil,nil,sw_shownormal); <br>
其中pchar()中的mailtos是打开邮件程序的，可以换成http://、ftp://、 <br>
其中pchar()中的mailtos是打开邮件程序的，可以换成http://、ftp://、 <br>
gopher://、new:、telnet:等多种形式 <br>
<br>
程序启动画面 <br>
<br>
在启动程序之前出现启动画面的方法多得是，但有些是调用“记时器”来延时 <br>
的，这种方法有时拖慢了程序的启动速度，下面介绍又一方法，给大家参考对比一 <br>
下。 <br>
建一个启动封面窗体，假设为Form2，先设置好BorderIcons、BorderStyle、 <br>
FormStyle、Position，接着在窗体上加入图片框、文本框，设置好后在菜单里选 <br>
Project里的Options，把Form2从Auto-create forms里转到Available forms。再接着 <br>
就是按Ctrl+F12键，选Project1，出现工程单元，其内容如下 <br>
... <br>
Application.CreateForm(TForm1, Form1); <br>
Application.Run; <br>
.. <br>
在Application.CreateForm(TForm1, Form1); 前加入如下语句： <br>
form2:=tform2.create(application); <br>
form2.Show; <br>
form2.Update; <br>
然后在Application.Run;前面加入如下语句： <br>
form2.hide; <br>
form2.free; <br>
<br>
丰富多彩的标签 <br>
<br>
如果你不满足于Delphi提供的简单的标签提示，想要在标签中有不同的字体，有 <br>
不同的颜色来丰富我们的表现能力，而且不用第三方提供的控件的话。那么只要巧妙 <br>
的利用Delphi自己提供的TRichEdit就可以了。 <br>
首先将TRichEdit控件的边框属性RichEdit1.BorderStyle设为bsNone;同时设置只 <br>
读属性RichEdit1.ReadOnly为True；然后利用Windows提供的“写字板”之类的软件制 <br>
作好RichText格式的文本，通过以下语句就可以显示出来了： <br>
RichEdit1.PlainText：False; <br>
RichEdit1.Lines.LoadFromFile('c:test.rtf'); <br>
</small><hr>
<p align="center">[<a href="index.htm">回到开始</a>][<a href="100.htm">上一层</a>][<a href="130.htm">下一篇</a>]
<p align="center"><a href="http://cterm.163.net">欢迎访问Cterm主页</a></p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -