powerbuilder:深入C++ Builder之编写自己的元件(2)

深入C Builder的编写自己元件 －深入分析VCL继承、消息机制(2)Aweay(原作)

这篇文章提及内容可能大家已经在很多地方看到过了作者也是如此只不过还看了很多VCL源代码加上自己实际编写元件经验拼凑了这么篇文章所以所有言论都是个人观点、经验描述仅供参考

你可转载拷贝,但必须加入作者署名Aweay如果用于商业目,必须经过作者同意

DYNAMIC

在上篇文章我们讲到了如何绘制元件但是光绘制元件还是不够个元件不光要有样子还要能够处理、相应用户输入这就需要我们来处理键盘鼠标事件

处理键盘鼠标事件同样像我们处理系统消息样比如WM_KEYDOWN等这样消息所以你可以同样像在Form中处理消息那样重载WndProc或者编写消息映射宏所有这些思路方法都可以用到元件中但是我们没有不用,也没有必要这么做VCL已经提我们预留了很多接口我们只需要重载相应虚拟就可以完成相应事件处理

如果你要处理鼠标事件那么你需要重写下列:

MouseDown

MouseUp

MouseMove

Click

如果你需要处理键盘那么你需要处理下列:

KeyPress

KeyDown

KeyUp

对于键盘虚拟你需要注意派生类必须继承自TCustomeControl(直接或间接准确说也不定)才能使用上面虚拟

上面看起来和我们在设计Form时差不多但是他们有个明显差别如果你重载他们似乎不是那么容易如果你看VCL源代码它只写个overide关键字来标示属性但是在C里这样就不行了为什么呢？

我们先来看下在VCL中源代码:

procedure KeyDown(var Key: Word; Sht: TShtState); dynamic;

procedure KeyUp(var Key: Word; Sht: TShtState); dynamic;

procedure KeyPress(var Key: Char); dynamic;

基本上所有这些虚拟(动态)都是这样申明可以在C并没有dynamic这个关键字啊？为了解释这个问题我们先来了解下什么时dynamic:

在Delphi中有virtual和dynamic两种多态方式对于virtual和我们C中virtual没有区别而dynamic则不样dynamic仅维护份虚拟思路方法表当个基类有多个多态而这个基类又有可能被多次继承时候使用dynamic申明可以减少代码长度不过dynamic和virtual行为都是差不多virtual速度要比dynamic快些dynamic要比virtual代码长度小

如果你想深入研究下这个问题可以参考以下文章:

http://www.csdn.net/develop/Read_Article.asp?Id=14729

或者去borland新闻组提问定能得到满意答复

我们知道在标准C中并没有dynamic关键字所以为了C Builder能使用VCL类Borland做了扩充我们可以直接使用DYNAMIC宏来实现动态所以如果我们要在自己派生类中重写这些消息处理我们需要这样:

DYNAMIC void __fastcall MouseMove(Classes::TShtState Sht, X, Y);



现在我们已经能画出元件能处理元件消息基本上我们已经可以编写些简单元件了在继续下面内容的前也作为这篇文章结束我们来实际编写个简单元件这里我们假设你已经有了定编写元件经验如果你看不懂相应代码也没有关系我会在后面文章做详细讨论

下面时我以前帮网友写个简单矢量绘图板元件源代码它实现可以在元件上画出矢量直线包括选取和重新调整:



(h头文件)

//---------------------------------------------------------------------------



#ndef VecCanvasH

# VecCanvasH

//---------------------------------------------------------------------------

# <SysUtils.hpp>

# <Classes.hpp>

# <Controls.hpp>

# \"Shape.h\"



typedef void __fastcall (__closure *THoverShapeEvent)(TObject* Sender, Index);

typedef void __fastcall (__closure *TShapeSelectedEvent)(TObject* Sender, Index);



enum ToolType{ttSelect,ttLine,ttRect};



//---------------------------------------------------------------------------

PACKAGE TVecCanvas : public TCustomControl

{

private:

TList* ShapeList;

CShape* CurrentShape;

bool Down;

TPo LastPos;

TPo NewPos;

THoverShapeEvent FOnHoverShape;

ToolType FTool;

TShapeSelectedEvent FOnShapeSelected;

DYNAMIC void __fastcall MouseDown(TMouseButton Button, Classes::TShtState Sht, X, Y);

DYNAMIC void __fastcall MouseUp(TMouseButton Button, Classes::TShtState Sht, X, Y);

DYNAMIC void __fastcall MouseMove(Classes::TShtState Sht, X, Y);

void __fastcall DoHoverShape( index);

void __fastcall SetTool(ToolType value);

void __fastcall DoShapeSelected( index);

protected:

void __fastcall Pa;

public:

__fastcall TVecCanvas(TComponent* Owner);

__fastcall ~TVecCanvas;

__fastcall ShapeAtPos( x, y);

__published:

__property Color;

__property _disibledevent=>



__property Align;

__property _disibledevent=>
__property TShapeSelectedEvent _disibledevent=>


};

对于上面头文件高手肯定眼就明白了对于初学者如果比较困难话或者干脆看不懂你或许应该去看看其他些有关设计元件入门文章当然我这里还是简要做下解释:

可能很多人都会问问题就是为什么申明了OnClick就会有OnClick事件呢？它如何知道鼠标点击了？答案是继承了父类申明和实现我只是负责把它表露出来以便元件使用着能使用这里又回到了我们第篇文章那个话题如果你要设计个TButtonEx元件你可以从TButton继承也可以从TCustomButton(假设有)继承如果从TButton继承那么所有属性和思路方法都不用重新申明TButton有TButtonEx都有但是TButtonEx真需要全部TButton属性和事件吗？当然不定我们只需要导出你感兴趣或者用户感兴趣属性和事件就可以了

还有就是__property关键字这里我不打算详细介绍它我想你应该去看看帮助或者其他什么东西头文件里还有其他些东西我们在下面再详细讨论现在我们来看下cpp文件



//---------------------------------------------------------------------------

#end

(cpp文件)

//---------------------------------------------------------------------------



# <vcl.h>



#pragma hdrstop



# \"VecCanvas.h\"



#pragma package(smart_init)

//---------------------------------------------------------------------------

// ValidCtrCheck is used to assure that the components created do not have

// any pure virtual functions.

//



inline void ValidCtrCheck(TVecCanvas *)

{

TVecCanvas(NULL); //保证元件中没有纯虚否则不能生成元件

}

//---------------------------------------------------------------------------

__fastcall TVecCanvas::TVecCanvas(TComponent* Owner)

: TCustomControl(Owner)

{

ShapeList= TList;

CurrentShape=NULL;

Down=false;

FTool=ttLine;

}

//---------------------------------------------------------------------------

Veccanvas

{

void __fastcall PACKAGE Register //包注册

{

TComponentClass es[1] = {__id(TVecCanvas)};

RegisterComponents(\"Draw Suite\", es, 0);

}

}

//---------------------------------------------------------------------------





__fastcall TVecCanvas::~TVecCanvas

{

//TODO: Add your source code here

delete ShapeList;

}



void __fastcall TVecCanvas::MouseDown(TMouseButton Button,

Classes::TShtState Sht, X, Y)

{

//TODO: Add your source code here

(Button!=mbLeft)

;



switch(FTool)

{

ttLine:

LastPos.x=X;

LastPos.y=Y;

NewPos.x=X;

NewPos.y=Y;

Down=true;

ttSelect:

{

sh=ShapeAtPos(X,Y);

(sh!=-1)

DoShapeSelected(sh);

;

}

}





}



void __fastcall TVecCanvas::MouseUp(TMouseButton Button,

Classes::TShtState Sht, X, Y)

{

//TODO: Add your source code here

Down=false;



(ButtonmbLeft)

{

switch(FTool)

{

ttLine:

CShape* sh= CLine;

sh->Start=LastPos;

sh->End=TPo(X,Y);

sh->Type=stLine;

ShapeList->Add(sh);

Canvas->MoveTo(LastPos.x,LastPos.y);

Canvas->LineTo(X,Y);

;



}

}

}



void __fastcall TVecCanvas::MouseMove(Classes::TShtState Sht,

X, Y)

{

//TODO: Add your source code here

(!Down)

{

sh=ShapeAtPos(X,Y);

(sh!=-1)

DoHoverShape(sh);

;

}



switch(FTool)

{

ttLine:

Canvas->Pen->Mode=pmNotXor;

Canvas->MoveTo(LastPos.x,LastPos.y);

Canvas->LineTo(NewPos.x,NewPos.y);

NewPos=TPo(X,Y);

Canvas->MoveTo(LastPos.x,LastPos.y);

Canvas->LineTo(NewPos.x,NewPos.y);

Canvas->Pen->Mode=pmCopy;

;

}

}



void __fastcall TVecCanvas::Pa //简单重载了Pa

{

//TODO: Add your source code here

//Canvas->Brush->Color=Color;

//Canvas->FillRect(this->ClientRect);

for( n=0;n<ShapeList->Count;n)

{

CShape* sh=(CShape*)ShapeList->Items[n];

sh->Draw(Canvas);

}

}



void __fastcall TVecCanvas::DoHoverShape( index)

{

//处理自定义事件

(FOnHoverShape)

{

FOnHoverShape(this,index);

}

}



__fastcall TVecCanvas::ShapeAtPos( x, y)

{

//TODO: Add your source code here

for( n=0;n<ShapeList->Count;n)

{

CShape* sh=(CShape*)ShapeList->Items[n];

(sh->IsPartOf(TPo(x,y)))

n;

}

-1;

}



void __fastcall TVecCanvas::SetTool(ToolType value)

{

//TODO: Add your source code here

(FTool!=value)

{

FTool=value;

}

}



void __fastcall TVecCanvas::DoShapeSelected( index)

{

//TODO: Add your source code here

(FOnShapeSelected)

{

FOnShapeSelected(this,index);

}

}

上面代码基本上运用了上面消息处理知识和绘制知识所以很容易看懂注意这里:

typedef void __fastcall (__closure *THoverShapeEvent)(TObject* Sender, Index);

typedef void __fastcall (__closure *TShapeSelectedEvent)(TObject* Sender, Index);

是我自己定义消息处理这也是我们下面文篇将要讨论问题-自定义消息处理和CM_XXXX消息.

延伸阅读

• 2008-12-17-- powerbuilder:PowerBuilder的数据窗口
• 2009-2-12-- powerbuilder:在Power Builder4.0的数据窗口中OLE的实现方法
• 2009-2-12-- powerbuilder:浅析PowerBuilder下动态SQL语句
• 2008-9-26-- powerbuilder:PowerBuilder编程变量命名规范及开发注意事项
• 2008-12-17-- powerbuilder:在PowerBuilder中操作BLOB数据的窍门技巧
• 2008-12-17-- powerbuilder:采用Sybase、PowerBuilder、Notes构建B/S应用系统
• 2008-9-26-- powerbuilder:让PowerBuilder制作查询系统的界面更加酷
• 2008-12-17-- powerbuilder7.0:PowerBuilder7.0在Internet中的应用
• 2008-12-18-- powerbuilder:在powerbuilder中向Excel传递数据
• 2008-12-17-- powerbuilder:在PowerBuilder中创建图标栏应用