发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: BorlandDev
标  题: 用Delphi“玩”编程 [2]
发信站: 哈工大紫丁香 (2001年03月13日17:45:30 星期二), 转信

用Delphi“玩”编程 [2] <<上一篇 下一篇>> 
      Delphi把开发应用程序作为一项工程。在这一期开始，我们动手编一个简单
的应用程序，感受一下Delphi简单易学、功能强大的特点。这一期先实现播放VCD
、CD、动画、WAV等等各种多媒体文件的功能和文字编辑功能。请打开!
    1. 在“桌面编辑器"上放置一个按钮；这时“特征编辑器"的标题写有“
Button1：Tbutton"。这说明按钮的“标识符"（名称）是“Button1"，是一个“
Tbutton"对象。关于“对象"将在下一期谈到。
    2. 把“特征编辑器"中的“Caption"项（Caption特性定义按钮上的标题），
从“Button1"改为“文字"。现在按钮上显示“文字"二字。当然你可以用同样方法
在按钮上写任何标题。
    3. 同样方法放置第二、第三个按钮，并分别写上“清除"、“关闭"；
    4. 放置一个Memo对象（Memo对象，用于文字编辑，类似Windows的记事本的功
能）；
    5. 菜单栏System页选择（MediaPlayer对象，用于播放多媒体）并放置此对象
；经过这简单的六个步骤，就完成了界面的设计。界面如图所示。
    6. 确定“特征编辑器"的标题为“MediaPlayer1：TMediaPlayer1"，把“
Autoopen"的属性设置为“Ture"， 把“Display"的属性设置为“Memo1"；
    7. 双击“Filename"旁的空格，“打开文件"框弹出，选择一个多媒体文件，
比如你手头一只VCD上的影音文件或者Windows/Media中的＊.wav文件。还支持其它
多种格式，你可以自己尝试。
    好了，现在运行，快点看看你的程序，Delphi使你经过简单的七个步骤就编出
一个有多媒体功能又有文字功能的程序。单击播放选定的多媒体文件。如果是影像
文件，在“Memo"框中可以看到影像。在“Memo"框中单击鼠标，可以开始键入字符
。此时的程序有了基本功能，但很不完善。下面关闭程序，为按钮添加功能。
    8. 双击“文字"按钮，代码编辑器自动弹出。在光标处键入下列代码：
MediaPlayer1.Close；
Memo1.Lines.Text:='This is my project.'；
    9. 双击“清除"按钮键入下列代码：
MediaPlayer1.open;
Memo1.Lines.Text:=' ';
    10. 双击“关闭"按钮键入下列代码：Close；
    再来运行程序，看看有什么事情发生。此时按“文字"按钮，Memo框正在播放
的影音文件被关闭，可以在“白纸"上写字了。按“多媒体"按钮，刚才变灰的播放
按钮被激活，又可以继续播放多媒体文件了。单击“关闭"按钮，可关闭窗体。
    怎么样，Delphi很简单易用吧？现在是不是发觉开发程序其实是件有趣而愉快
的事。如果你在编程过程中多用第一期提到的Delphi提供的在线帮助，一定会学到
更多的东西。你也许在兴奋之余发现了一大堆疑问，那么千万别错过后面的介绍。
在第三期、第四、五期将分别讲解Delphi中的对象和语法，并不断为这个程序添砖
加瓦，使之实现更多有趣功能。在离开Delphi前别忘记保存你的杰作：在File菜单
中选Save all保存源文件＊.pas和工程文件＊.dpr。

   
 
  如果你有什么好的资料，可以寄给我哟:) <<回到首页 <<上一篇 下一篇>> 



------------------------------------------------------------------------
--------
  Delphi 技巧集 
   
  Copyright 1999.11 by 东子 Mail to me! 
感谢广州视窗提供主页空间 


--

       大海无边天做岸
               山登绝顶我为风

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.121]