分享
 
 
 

Delphi背后---初学者参考之二(1)

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

计算机语言一代一代地从机器语言发展到高级语言,从复杂到简单(其实也不简单),体现了计算机科学技术的发展。计算机语言越高级,就越抽象越人性化,与低层硬件的关系就越少,使用起来就越方便。但无论计算机语言如何高级,都是对操作系统层的抽象,因此我们总可以找出理解高级语言背后的规律,那就是:高级语言写的代码只是为了描述人们的需求,而这些代码要通过“翻译器”翻译成机器语言形式才能被机算机识别执行。所谓的翻译有两种方式:一是编译方式,代码事先通过编译器生成机器语言代码,再由操作系统调度执行,如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

//确定鼠标进入中是否有代码,如果有执行

if Assigned(FOnMouseEnter) then

FOnMouseEnter(Self);

end;

procedure TMyPanel.WMMouseLeave(var Message: TMessage);

begin

//确定鼠标进入中是否有代码,如果有执行

if Assigned(FOnMouseLeave) then

FOnMouseLeave(Self);

end;

end.

u 然后点击【Component】->【Install Component…】,如下图:

在“Unit file name”中选中我们刚才的单元MyPanelUnit.pas,其他选项默认。然后点击“OK”, 在“Package dclusr.bpk will be build then install, Continue?”选择“Yes”,待编译安装完后保存,这样TmyPanel控件就被安装到Delphi中了。滚动Delphi的控件面板到最后,将会看到如下图的控件页MyControl:

u 然后再新建一个工程,单击【File】->【New】->【application】,把MyControl页中的MyPanel拖到Form上,按F11键,切换到Events页,如下:

和TPanel比较一下,看是不是多了OnMouseEnter和OnMouseLeave事件。双击OnMouseEnter,写代码如下:

procedure TForm1.MyPanel1MouseEnter(Sender: TObject);

begin

ShowMessage('鼠标进入MyPanel1');

end;

然后按F9运行,移动鼠标到MyPanel1上,看一下结果如何。

就这么简单,我们扩展了TPanel,使其具有处理鼠标进入和移开事件的能力,所以VCL并不神秘,任何人都可以重写里面的组件(类),使之成为自己所要的东西。

l Delphi支持接口继承,从某种意义上说实现了多重继承,如TComponent的定义如下:

TComponent = class(TPersistent, IInterface,

IInterfaceComponentReference)

l 不要拿抽象类创建实例。类中只要有一个方法是抽象方法,那么这个类就是抽象类。如TStrings定义如下:

TStream = class(TObject)

private

protected

public

function Read(var Buffer; Count: Longint): Longint; virtual; abstract;

function Write(const Buffer; Count: Longint): Longint; virtual; abstract;

end;

一个方法的定义中只要有abstract关键字就是抽象方法。用抽象类来创建实例没有任何意义,因为Read和Write并没有实现,如果调用则会出现为例。

(未完,请参看Delphi背后---初学者参考之二(2) )

(如需要转载,请注明出处及作者http://haitian.myrice.com)

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有