📄 126.htm

📁 水木清华的BBS文章
💻 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="127.htm">下一篇</a>]
<hr><p align="left"><small>屏蔽系统功能键 <br>

  <br>

　　当你不需要让用户按Alt+Enter、Ctrl+Alt+Del、Ctrl+Esc等功能键的时候加入以 <br>

下代码： <br>

Var <br>

temp:integer; <br>

begin <br>

SystemParametersInfo(Spi_screensaverrunning,1,@temp,0); <br>

end; <br>

　　当你要恢复功能键时用以下代码： <br>

Var <br>

Temp:integer; <br>

begin <br>

SystemParametersInfo(spi_screensaverrunning,0,@temp,0); <br>

end; <br>

  <br>

                                 分行提示 <br>

  <br>

　　无论你什么时候要分行显示的时候，只需要在字符串中间加入“#13”就可以了， <br>

但在属性框里却不能这么干，以下就几种控件加以说明： <br>

begin <br>

Label1.caption :='垂'+#13+'直'+#13+'显'+#13+'示'; <br>

Edit1.Hint :='输入框说明：'+#13+'文本的输入'; <br>



end; <br>

  <br>

                                 任意打印 <br>

  <br>

　　有时我们要打印任意排列的表或往已经印好的登记表上对号入座写上数据时，可 <br>

以新建一个窗体（假设为Form1），再把Form1的BorderStyle设为bsNone、AutoScroll <br>

设为True，接下来再创建一个新窗体（假设为Form2），再建个按钮Button1，编写代 <br>

码： <br>

procedure TForm2.Button1Click(Sender: TObject); <br>

begin <br>

Form1.Width :=900; <br>

Form1.Height :=800; <br>

Form1.Print; <br>

end; <br>

　　接下来你在Form1上对应的位置写上数据，运行后按Button1就会一五一十的打印 <br>

下来了。 <br>

  <br>

                            运行时生成控件 <br>

  <br>

  　㈠、运行时生成可视控件：以下以TEdit 控件为例 <br>

1.在Form的Public中定义TEdit控件 <br>

　　Edit1:TEdit; <br>

　　Edit1:TEdit; <br>

2.在需要生成的地方加入以下代码： <br>

　　Edit1:=TEdit.Create(Self); <br>

　　Edit1.Parent:=Form1; <br>

　　Edit1.Left ?:=20; <br>

　　Edit1.Top :=20; <br>

　　Edit1.Text :='Edit1 Text'; <br>

3.使用完毕后，释放分配的资源 <br>

　　if? Assigned(Edit1) then Edit1.Free; ? <br>

  　㈡、运行时生成非可视控件：以下以 TTimer控件为例 <br>

1.在Form的Public中定义TTimert控件 <br>

　　Timer1:TTimber; <br>

2.在需要生成的地方加入以下代码： <br>

　　Timer1:=TTimer.Create(Self); <br>

　　Timer1.OnTimer:=YourAction; <br>

YourAction是自己定义的OnTimer事件，使用 <br>

procedure TForm1.YourAction(Sender:TObject); 完成 <br>

3.使用完毕后，释放分配的资源 <br>

　　if? Assigned(Timer1) then Timer1.Free; ? <br>

  <br>

                            获得命令行参数 <br>

  <br>

1. 取得命令列参数的个数: ParamCount 函数 <br>



2. 呼叫 ParamStr(0), 传回执行档的档名(含路径) <br>

3. 呼叫 ParamStr(n), 传回第ｎ个参数的内容 <br>

例子： <br>

procedure TForm1.FormCreate(Sender: TObject); <br>

var <br>

　ix: integer; <br>

begin <br>

　Memo1.Lines.Clear; <br>

　if ParamCount = 0 then <br>

　　Memo1.Lines.Add('??统??.') <br>

　else <br>

　begin <br>

　　Memo1.Lines.Add('档名:' + ParamStr(0)); <br>

　　for ix := 1 to ParamCount do <br>

　　Memo1.Lines.Add(ParamStr(ix)); <br>

　end; <br>

end; <br>

  <br>

                          查阅可视窗口标题 <br>

  <br>

下面只是举出一个例子提供参考: <br>

运用API函数GetWindow()配合GetWindowText()逐一查出各视窗的标题 <br>

)配合GetWindowText()逐一查出各视窗的标题 <br>

1. File | New Project 开始一个新的工程 <br>

2. 在 Form1 中安排 Button 与 Memo 各一 <br>

3. 在 Button1 的 OnClick 事件中撰写程式如下: <br>

procedure TForm1.Button1Click(Sender: TObject); <br>

var <br>

　hCurrentWindow: HWnd; <br>

　szText: array[0..254] of char; <br>

begin <br>

　hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST); <br>

　while hCurrentWindow <> 0 do <br>

　begin <br>

　if GetWindowText(hCurrentWindow, @szText, 255)>0 then <br>

　Memo1.Lines.Add(StrPas(@szText)); <br>

　hCurrentWindow:=GetWindow(hCurrentWindow, GW_HWNDNEXT); <br>

　end; <br>

end; <br>

  <br>

</small><hr>
<p align="center">[<a href="index.htm">回到开始</a>][<a href="100.htm">上一层</a>][<a href="127.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 + -