|
计算机语言一代一代地从机器语言发展到高级语言，从复杂到简单（其实也不简单），体现了计算机科学技术的发展。计算机语言越高级，就越抽象越人性化，与低层硬件的关系就越少，使用起来就越方便。但无论计算机语言如何高级，都是对操作系统层的抽象，因此我们总可以找出理解高级语言背后的规律，那就是：高级语言写的代码只是为了描述人们的需求，而这些代码要通过“翻译器”翻译成机器语言形式才能被机算机识别执行。所谓的翻译有两种方式：一是编译方式，代码事先通过编译器生成机器语言代码，再由操作系统调度执行，如Delphi语言、C++语言等；二是解释方式，该方式在计算内是边解释边执行，并不事先生目标程序，如Basic语言、脚本语言等。解释方式的特点运行速度慢，对计算机硬件要求比较高。
计算机语言定义描述人们需求的规则，在语言的背后是编译器或解释器。编译器或解释器的主要工作就是翻译代码，成为人与计算机交流的主要通道。这样在操作系统不变的情况下，各种开发工具各显神通，但最终都要生成计算机可执行的代码。所以无论用哪种计算机语言写的程序要判断其好与坏很大程度上依赖于该语言的编译器或解释器。Delphi的编译器仍然是目前世界上最先进最优秀效率最高的编译器。
从高级语言的特点来看，它们基本上都是对操作系统提供的服务接口封装，在此基础上加入自己的语言特性，如OOP、指针、内存管理模式等。
从Delphi语言的整个架构来，我们写程序要么是直接使用VCL，要么是调用操作系统提供的API，要么是使用Com服务，又或是直接使用汇编语言完成我们的工作。
1. VCL
Delphi最核心最伟大的就是可视化组件库（VCL——Visual Component Library）和跨平台组件库存（CLX——aComponent Library for Cross-Platform），类似于Microsoft MFC，但其架构比MFC至少要先进两到三代。用Delphi编程你可以选择VCL也可以不用VCL一切从头开始。假设写一个建窗口并显示“Hello world”的程序，如果不用VCL，那么你得从调用API的CreateWindow开始，这是一件多么麻烦的事，不过这还得看你的要求。这里只是说明用Delphi编程离开VCL并不是不行，如控制台程序。
VCL是一个功能强大的类库，它是Delphi语言面向对象特性的精华与结晶，类图结构如下：
这是一个缩略的类图结构，但很具有代表性，从类图中我们可以看出，VCL只有一个根——TObjct，它的每一个派生类只有一个祖先。这正是Delphi语言的面向对象的特点，所有类的最原始祖先是TObjcet，继承方式是单一继承。需要说明的是：
l 虽然VCL设计很经典也很庞大，但不要被这些所吓倒。说白了他就是一个类库，是很多有一定关系的类放在一起完成一定功能的类库，而这些类要么是封装Windows的API，要么是调用Windws的COM服务，又或是使用汇编直接操作内存。前面说过，我们写程序可以用VCL也可以不用VCL，说明VCL并不是必须的。如果有必要，我们可以继承扩展其中任何一个类使之成为符合自己要求的类。如我们要扩展TPanal类，使鼠标进入和离开时能触发相应的事件（OnMouseEnter\OnMouseLeave），如QQ面板的功能。
u 从【File】->【New】->【Unit】新建一个单元。
u 写代码如下，然后保存该单元为MyPanelUnit。
unit MyPanelUnit;
interface
uses Classes, ExtCtrls, Messages, Controls;
type
TMouseActionEvent = procedure(Sender: TObject) of object;
TMyPanel = class(TPanel)
private
FOnMouseEnter, FOnMouseLeave:
FouseActionEvent;
//截获鼠标进入消息
procedure WMMouseEnter (var Message:
TMessage); message CM_MOUSEENTER;
//截获鼠标移开消息
procedure WMMouseLeave (var Message:
TMessage); message CM_MOUSELEAVE;
published
property OnMouseEnter: TMouseActionEvent read
FOnMouseEnter write FOnMouseEnter;
property OnMouseLeave: TMouseActionEvent read
FOnMouseLeave write FOnMouseLeave;
end;
//注意"Register"中的"R"一定要大写,这是Delphi语言中唯一要注意大小的地方
procedure Register;
implementation
{ TMyPanel }
procedure Register;
begin
//在Delphi的IDE中注册组件，显示在面板"MyControl"上
RegisterComponents(''''MyControl'''', [TMyPanel]);
end;
procedure TMyPanel.WMMouseEnter(var Message: TMessage);
begin
[1] [2] 下一页
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
