荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: georgehill (佐治·希尔【多情网虫无情网】), 信区: Program
标 题: 用Delphi“玩”编程(5)
发信站: BBS 荔园晨风站 (Sun Mar 12 02:25:29 2000), 转信
资料整理·中国程序员网站
用Delphi“玩”编程
（5）实用招术 作者 江伟芸
学习Delphi，最难的是编写Pascal代码。上一期我们简单介绍了一个程序单元的
结构，并答应大家在这期提供几个实用招数，好在真正要用的时候露一手。好吧，先
在例子中介绍几种最常用的Pascal语句。
● 打开前面编好的程序，添加一个按钮，并为其添加以下代码：
for i:=1 to 80 do
begin
Form1.width:=800－i＊10;
Form1.top:=108－i＊5;
if Form1.top<20 then Form1.top:=108;
end;
● 在“引用声明"（请参考上期“程序结构"）中键入：
i:integer;
可以运行了。一按此按钮，程序窗体就变小，再按再重复一次。例子中用到了
Pascal的几种基本语句。
1. 循环语句：for 变量：=起始值 to终止值do…
2. 赋值语句：变量:= …（例子里的Form1.top是指“Form1"对象的“top"属性）。
3. 复合语句：Begin…end;（复合语句一般与循环语句或选择语句一起用。本例
其实只有一个语 句，一个包含赋值语句和选择语句的复合循环语句。）
4. 选择语句：If条件（成立）then（做某事）(else)…
你对这几种语句了解了吗？使用时只需要照套。下面提供几个实用招数。程咬金的“
三道板斧"可以称霸一时，我们这“三道板斧"也能应付一下最常见的场面。
1. 关闭程序。应用程序一般都要有关闭窗体的功能。
最简单的代码是：Close; 它关闭当前窗体，如果是单窗体的程序可以同时关闭
程序；
多窗体的程序要关闭，一般可以用Application.Terminate;
两个语句的区别类似于“关闭"和“退出"的区别。
2. 信mtconfirmation, [mbyes,
mbno],0);
使用时可以修改有中文说明的地方，其它同例子一样。其中可选用的按钮有mbYes、
mbNo、mbOK、 mbCancel、mbHelp、mbAbort、mbRetry、mbIgnore、mbAll每个按钮
之间用“，"隔开。
3. 连接窗体。实用程序大都含有超过一个的窗体。如何连接它们呢？
● 选中菜单中的File/New form，生成一个新的窗体。Delphi自动命名为Form2；
● 在Form1中添加一个按钮；
● 为按钮添加以下代码：form2.show;
● 在uses的下一行添加Unit2;（在implementation下一行添加uses Unit2更好。）
运行程序，单击新添按钮。Form2出现。
看过这几招，你也许仍远未满足。在这只能提供这么一点，更多更高深的“武功
心法"还是要靠你自 己“修炼"。练完内功，下一期我们来学一些装点门面的功夫，
让我们的程序更完美。
--
那你可不可以教我，
有什么办法可以不去喜欢一个人呢？
-- Bye 赤明莉香 --
我是来自大富翁的小美！^_^
※ 来源:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.1.115]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店