⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 169.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="7.htm">上一层</a>][<a href="170.htm">下一篇</a>]
<hr><p align="left"><small>发信人: pitts (痛并快乐着), 信区: Delphi <br>

标  题: 利用DELPHI工具开发技巧二则 <br>

发信站: BBS 水木清华站 (Tue Oct 13 10:51:40 1998) WWW-POST <br>

  <br>

    窗口中状态行的显示 <br>

    很多的软件为了拥有良好的对话，在工作过程中向用户提 <br>

供一些动态信息，使用户随时随地了解当前状况。使用状态行 <br>

是目前采用较多的手段之一。所谓状态行就是位于窗口下方， <br>

用于显示一些提示性文字的显示板，利用状态行可以向用户动 <br>

态提示有关信息，如：当前打开的文件名称、文件大小；当前 <br>

打开的数据库名称、数据库记录数等。 <br>

    （1）在窗体中增加状态行，状态行设计分以下几个步骤： <br>

    在窗体中加入一个TPanel构件Panel1，其特性设置如下： <br>

    ＊Align为alBottom，状态行总是位于窗体的下部。 <br>

    ＊Caption为空。 <br>

    ＊Alignment为taLeftJustify，显示文字为左对齐方式。 <br>

    ＊Bevelinner为bvLowered；Borderwidth为〉1，产生具 <br>

有粗线内外框且具有凹下效果的状态行。 <br>

    （2）显示系统状态 <br>

    通过给Panel1的标题（Caption）赋值来更新状态行的显 <br>

示。如想知道按钮构件（Button1）在键入后，系统打开的文 <br>

件及其大小，可在Button1的OnClick事件输入如下内容： <br>

    ProcedureTForm1．Button1Click（Sender：TObject）； <br>



    begin <br>

    Panel1．Caption：=‘文件名：’＋S1＋‘文件大小：’＋ <br>

S2 <br>

    end； <br>

    其中：S1和S2均是字符串，S1为文件名，S2为文件大小。 <br>

    （3）显示各个构件的提示 <br>

    Windows中有很多的软件使用飞行提示，即当鼠标指定到 <br>

某部分时，状态行出现其提示；而当鼠标移走后，则该提示消 <br>

失；Delphi工具同样可以完成上述功能，具体做法如下： <br>

    type <br>

    TForm1=class（TForm） <br>

    Button1：TButton； <br>

    Panel1：TPanel； <br>

    Edit1：TEdit； <br>

    procedureFormCreate（Sender：TObject）； <br>

    Private <br>

    ｛Privatedeclarations｝ <br>

    public <br>

    procedureDisplayHint（Sender：TObject）； <br>

    end； <br>

    var <br>

    Form1：TForm1； <br>

    Form1：TForm1； <br>

    implementation <br>

    ｛＄R＊．FRM｝ <br>

    procedureTForm1．DisplayHint（Sender：TObject）； <br>

    begin <br>

    Panel1．Caption：=Application．Hint： <br>

    end； <br>

    procedureTForm1．FormCreate（Sender：TObject）； <br>

    begin <br>

    Application．OnHint：=DisplayHint； <br>

    end； <br>

    在程序中增加了上述内容后，只要Button1的Hint中有 <br>

内容，当鼠标移动到Button1时，状态行出现Hint中的内容； <br>

而当鼠标移走后，状态行中Hint的内容消失。 <br>

    巧用回车键 <br>

    用过Foxpro的用户都知道，键入回车键，程序自动从一 <br>

个输入框转入到下一个输入框。但Delphi工具采用的方式与 <br>

Windows完全一样，必须键入Tab键，程序才从一个输入框转 <br>

入到下一个输入框。这对于用惯了Foxpro的人来说，十分不 <br>

方便。 <br>

    Delphi工具提供两种命令按钮，按钮构件（TButton）和 <br>

图示按钮（TBitbtn）。假设在窗体Form1中有两个输入框Edit1 <br>

和Edit2，一个按钮构件（Button1）。键入Tab键，程序从输 <br>



入框Edit1转入到下一个输入框Edit2。若想达到键入回车键， <br>

程序从输入框Edit1转入到下一个输入框Edit2，我们可以通 <br>

过控制按钮构件的特性来达到上述要求。具体方法如下： <br>

    第一种方法 <br>

    （1）首先将按钮构件Button1的Default特性设置为 <br>

True，这样在程序执行期间若有回车键键入，则Button1的 <br>

OnClick事件被执行，在Button1的OnClick事件中编写程序， <br>

就可以达到从Edit1输入框到Edit2输入框的目的。 <br>

    （2）编写TForm1．Button1Click事件程序 <br>

    procedureTForm1．Button1Click（Sender：TObject）； <br>

    begin <br>

    ifEdit1．Focusedthen <br>

    Edit2．SetFocus； <br>

    end； <br>

    第二种方法 <br>

    （1）与第一种方法（1）同样，将按钮构件Button1的Default <br>

特性设置为True。 <br>

    （2）编写Edit2—Focused子程序 <br>

    procedureTForm1．Edit2—Focused（Sender：TObject）； <br>

    begin <br>

    Edit2．SetFocus； <br>

    end； <br>

    begin <br>

    Edit2．SetFocus； <br>

    end； <br>

    同时在Unit1中填写： <br>

    public <br>

    ｛Publicdeclarations｝ <br>

    procedureEdit2—Focused； <br>

    （3）编写TForm1．Edit1Enter事件 <br>

    procedureTForm1．Edit1Enter（Senter：TObject）； <br>

    begin <br>

    Button1．OnClick：=Edit2—Focused； <br>

    end； <br>

    这样，当键入回车键后，Button1的OnClick事件被响应， <br>

同于Button1的OnClick事件被定义为子程序Edit2— <br>

Focused，所以最终执行的程序是子程序Edit2—Focused的内 <br>

容，即：Edit2输入框成为焦点。 <br>

  <br>

-- <br>

  <br>

  怎一个惨字了得 <br>

  <br>

※ 来源:·BBS 水木清华站 bbs.net.tsinghua.edu.cn·[FROM: 166.111.7.26] <br>

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