知识大全 EXE工程和OCX工程的转化

Posted 2022-07-21 工程

篇首语：忙于采集的蜜蜂，无暇在人前高谈阔论。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 EXE工程和OCX工程的转化相关的知识，希望对你有一定的参考价值。

EXE工程和OCX工程的转化 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　一从EXE到OCX工程

　　此类转化有一个常用的也可以说较笨的的方法把EXE工程主Form上的所有元素和其事件处理程序都拷贝过来此法虽说稳妥但麻烦的一塌糊涂容易让人头大下面着重介绍一个比较快捷省事的办法通过类的继承来实现转化概括来说就是把EXE工程的主Form直接作为OCX工程的主Form 并把其父类由TForm改为TActiveForm 详细介绍如下

　　( )准备工作

　　在开始之前最好把EXE工程的所有文件如 pas dfm(工程 dpr等除外)拷到一个新的目录下如果不想这样做也可以把OCX工程保存到同一目录但不要和EXE工程重名以免覆蓋生成一个ActiveForm(注意此保持空白不要往其上放任何组件) 为了便于说明设其name为ActiveFormX 单元文件存为ActiveFormX pas 同时保存OCX工程假设原来主Form的name为frmMain 单元文件为MainForm pas

　　( )改变继承关系

　　打开MainForm pas 找到TfrmMain类的声明部分把TfrmMain = class(TForm)改为TfrmMain = class(TActiveFormX)

　　( )把frmMain作为工程的主Form

　　打开ActiveFormX pas 找到initialization 部分如下所示

initialization

TActiveFormFactory Create(

ComServer

TActiveFormControl

TActiveFormX

Class_ActiveFormX

OLEMISC_SIMPLEFRAME or OLEMISC_ACTSLIKELABEL

tmApartment);

　　把第五行中TActiveFormX改为TfrmMain 这样OCX工程的主Form就成了原来EXE工程的主Form 即TfrmMain

　　( )属性声明

　　查看一下delphi源码可以看到下面的继承链条

TCustomForm >TCustomActiveForm >TActiveForm

TCustomForm >TForm

　　TForm的部分published属性在TActiveForm未被声明而这些属性存在于它们共同的父类TCustomForm中并且在public部分所以你如果在属性编辑器中改变了frmMain的这些属性 delphi就会从当前类按TActiveFormX >TCustomActiveForm >TCustomForm顺序在published部分查找并设置这些属性而这三个父类published部分并未包含这些属性这样 delphi将提示地址错误所以只要在TActiveFormX中声明这些属性问题即可解决以On开头的事件属性也是同样的道理打开ActiveFormX pas 把以下代码拷到TActiveFormX的声明部分即可

published

property Action;

property Align;

property AlphaBlend default False;

property AlphaBlendValue default ;

property BiDiMode;

property BorderIcons;

property BorderStyle;

property ClientHeight;

property ClientWidth;

property TransparentColor default False;

property TransparentColorValue default ;

property Ctl D;

property UseDockManager;

property DefaultMonitor;

property DockSite;

property DragKind;

property DragMode;

property Enabled;

property ParentFont default False;

property FormStyle;

property HelpFile;

property Icon;

property Menu;

property ObjectMenuItem;

property ParentBiDiMode;

property Position;

property Visible;

property WindowState;

property WindowMenu;

property OnCanResize;

property OnClose;

property OnCloseQuery;

property OnConstrainedResize;

property OnDockDrop;

property OnDockOver;

property OnEndDock;

property OnGetSiteInfo;

property OnHide;

property OnHelp;

property OnMouseWheel;

property OnMouseWheelDown;

property OnMouseWheelUp;

property OnResize;

property OnShortCut;

property OnShow;

property OnStartDock;

property OnUnDock;

　　对于上面所列的事件属性也不必全部都声明 frmMain中有处理程序的声明一下就行了

　　( )更改事件连接

　　如果你在TfrmMain的OnPaint事件中写了代码可以发现这些代码是不会被执行的原因何在？打开ActiveFormX pas 找到TActiveFormX的Initialize过程可以发现如下代码

inherited Initialize;

OnActivate := ActivateEvent;

OnClick := ClickEvent;

OnCreate := CreateEvent;

OnDblClick := DblClickEvent;

OnDeactivate := DeactivateEvent;

OnDestroy := DestroyEvent;

OnKeyPress := KeyPressEvent;

OnPaint := PaintEvent;

　　原来问题出在这里 OnPaint事件被delphi吃掉了改成了执行PaintEvent 怎么搞？把次行注释掉吧然后再写一个你自己的OnPaint事件处理过程不要忘了带参数sender

　　如 procedure MyPaint(Sender:TObject);

　　然后在TfrmMain的OnCreat事件中赋给OnPaint就行了如 OnPaint:=MyPaint;

　　上面列举的几个事件都和OnPaint类似模仿OnPaint就ok了

　　二从OCX到EXE工程

　　( )OCX工程框架

　　综上所述 OCX工程最好不要把ActiveForm作为主Form 而另外生成一个普通Form作为主Form 再按上面所说的方法进行处理然后其它的数据操作Form也为普通Form 被主Form调用

　　( )转化到EXE工程

cha138/Article/program/Delphi/201311/24829