vc++可以编辑c语言吗?_vc6.0使用教程详解

vc++可以编辑c语言吗?_vc6.0使用教程详解如何编写自己的VCL控件    用过Delphi的朋友们,大概对Delphi的最喜欢Delphi的不是他的强类型的pascal语法,而是强大的VCL控件,本人就是一位VCL控件的爱好者。    VCL控件的开源,给我们带来了享之不尽的优点。不像曾经的ole控件以及ActiveX,你全然能够重写Delphhi标准控件,并且网上这方面的资源非常多。    关于怎样编写VCL控…

大家好,又见面了,我是你们的朋友全栈君。如果您正在找激活码,请点击查看最新教程,关注关注公众号 “全栈程序员社区” 获取激活教程,可能之前旧版本教程已经失效.最新Idea2022.1教程亲测有效,一键激活。

Jetbrains全系列IDE稳定放心使用

如何编写自己的VCL控件 <?xml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” />

      用过Delphi的朋友们,大概对Delphi的最喜欢Delphi的不是他的强类型的pascal语法,而是强大的VCL控件,本人就是一位VCL控件的爱好者。

     VCL控件的开源,给我们带来了享之不尽的优点。不像曾经的ole控件以及ActiveX,你全然能够重写Delphhi标准控件,并且网上这方面的资源非常多。

     关于怎样编写VCL控件,和多Delphi的书籍里都有介绍,在此简单的说明一下。

 

Delphi中,TComponent是全部VCL构件的基础。编写非可视构件以便从TComponent派生。Delphi提供了若干专门用于制作控件(可视构件)的基本构件类型,都是从TControlTWinControl派生而来。其派生关系例如以下:

TControl---TGraphicControl---TCustomLabel

TWinControl--TCustomControl---TCustomGrid

---TButtonControl--TCustomGroupBox

---TScrollingWinControl--TCustomPanel

---TCustomComboBox

---TCustomEdit

---TCustomListBox

TControl的子类型用于非窗体式控件,TWinControl的子类型 则用于窗体式控件。除非特殊须要,一般不直接从TControl TWinControl派生新控件,而是从其子类型派生。这样能够充分利 用原有的属性、事件和方法,降低非常多工作量。

编写控件,首先要选择适当的VCL对象类型作为父对象,以派生新的对象。

以下给出一个详细的样例,来实现一个增强型的Edit输入框,是他能够依据输入的数据类型对输入字符进行有效性推断,添加相似于TLabel一样的左对齐、中对齐、右对齐功能。

通过Delphi的构件向导从TEdit继承生成自己的控件:

TEditDataType = (dtpString, dtpInteger, dtpFloat); //输入的数据类型

TMyEdit=class(TEdit)

private

    FAlignment: TAlignment;

    FDataType: TEditDataType;

    Fprecision: Integer;

    procedure SetAlignment(const Value: TAlignment);?? //用来设置对齐方式方法

    procedure SetPrecision(const Value: Integer);????????????

    procedure SetDataType(const Value: TEditDataType);

    function GetAsFloat: double;

    function GetAsInteger: Integer;

    procedure SetAsFloat(const Value: double);

    procedure SetAsInteger(const Value: Integer);

    function GetAsText: String;

    procedure SetAsText(const Value: String);

  protected

     procedure CMExit(var Message: TCMExit); message CM_EXIT; //重写消息, 下一篇将具体介绍消息

     procedure KeyPress(var Key: Char); override; //重写键盘按键事件,用来控制键盘输入

  public

    constructor Create(AOwner: TComponent); override;

    procedure CreateParams(var Params: TCreateParams); override;//重写,实现左右对其

    property Alignment: TAlignment read FAlignment write SetAlignment default

    taLeftJustify; //对齐方式

    property DataType: TEditDataType read FDataType write SetDataType default

    dtpString; //设置输入的数据类型

published

property Precision: Integer read Fprecision write SetPrecision; //小数点有效位数property AsFloat :double read GetAsFloat write SetAsFloat; //? 添加相似于C++一样 的类型转换函数,不用每一次自己调用函数转换

    property AsInteger:Integer read GetAsInteger write SetAsInteger;

    property AsString :String read GetAsText write SetAsText;

end;

//以下我们来一个一个实现我们想要实现的功能。

第一个实现左对其必须重写CreateParams函数,详细实现例如以下:

procedure TMyEdit.CreateParams(var Params: TCreateParams);

const

 Alignments: array[Boolean, TAlignment] of DWORD =

 ((SS_LEFT, SS_RIGHT, SS_CENTER), (SS_RIGHT, SS_LEFT, SS_CENTER));

begin

 inherited CreateParams(Params);

 CreateSubClass(Params, ‘EDIT’);

 with Params do

 begin

    Style := Style or SS_NOTIFY or

   Alignments[UseRightToLeftAlignment, FAlignment];

  end;

end;

//设置对齐方式

procedure TMyEdit.SetAlignment(const Value: TAlignment);

begin

   if FAlignment <> Value then

  begin

    FAlignment := Value;

    RecreateWnd; //重画控件

 end;

end;

 

依据所设定的数据类型控制输入的字符串,重写KeyPress事件

procedure TlsCustomEdit.KeyPress(var Key: Char);

begin

 case FDataType of

    dtpInteger:  //假设是整数

     begin

        if not (Key in [‘0’..’9′, ‘-‘, #8, #13, #35, #39]) then

                 Key := #0;

        if (Key = ‘-‘) and ((Pos(‘-‘, Text) > 0) or (SelStart <> 0)) then

            Key := #0;

      end;

 

        dtpFloat:  //假设是符点数

           begin

              if not (Key in [‘0’..’9′, ‘.’, ‘-‘, #8, #13, #35, #36, #37, #39]) then

                   Key := #0;

            if (Key = ‘.’) and (Pos(‘.’, Text) > 0) then

                  Key := #0;

            if (Key = ‘-‘) and ((Pos(‘-‘, Text) > 0) or (SelStart <> 0)) then

                Key := #0;

      end

  end;

 

  inherited KeyPress(Key);? //调用父类的KeyPress方法

end;

     号了,如今这个控件就差点儿相同了.

     关于简单控件的编写,一般仅仅须要从Delphi为你准备好的基本构件类型继承下来,然后重写父类的一些方法,加入自己的一些方法,以及属性就能够了.你还能够学Delphi一样写出一些抽象构件类型来, 比方说上面的TMyEdit, 你能够先写一个主要的TCustomMyEdit 然后,从他继承,引伸出很多其它控件出来.? 基本构件类型的编写,你得高瞻远瞩, 让你的基本类型足够抽象. 在这里, 你所学的OOP的思想就能够在此大展身手了. 习惯上, 基本构件类型,不须要published.

     在制作构件时,有要接触到非常多类和非常多的属性和方法,在这里,列出了一些比較重要并且比較经常使用的类和它的属性和方法。

 TComponent

    ComponentState 属性,标志构件正处于的状态,如编辑,调入,读取等。能够跟据状态来决定当前构件要做的事情;

    Notification方法:当一个构件被删除,增加时,会使用这一个方法通知全部的构件(除了被删除或增加的那一个构件)。这一个方法有两个參数:AComponentOperation。进入的參数通知构件如今对哪一个构件进行操作,进行什么样的操作。使用时,在新的构件里覆盖掉Notification方法,在Notification方法里写上接收到通知的代码就能够了;在做一些容器控件,控件关联,DB构件时非常实用.否则,你删除时会有一个地址错误.

     Loaded方法:当一个构件加载完成后,该方法被调用。与Notification方法一样,使用时,在新的构件里覆盖掉Loaded方法,然后在Loaded方法里写上加载完成的代码就能够了;

    Updating方法:当一个构件正在被改变时,被调用;

    Updated方法:当一个构件改变完成时,被调用。

 

TGraphicControl

    Canvas属性:画布,图形构件必须有的属性;

    Left, Top, Width, Height属性:在父构件里显示出来的大小;

    ControlState属性:控制状态,如鼠标按下,是否接受调色板更改信息,是否接受焦点等;

     ControlStyle属性:控制类型,如是否透明,是否有3D Frame等等;

     Paint方法:该方法在接受到WM_PAINT消息后就被调用,画出自己;

 

 VCL的初步学习一般还算easy,和不论什么计算机语言一样,当你须要更深入的时候,进展就比較慢了,所须要的知识是越来越多。就VCL的编写一些难点列举一二:一个是系统消息几Windows API。你须要写一个比較复杂的控件,你须要对系统消息比較熟悉。还有一个是属性编辑器以及组件编辑器的编写。别看DelphiVCL有源代码,但不是所有的,就属性编辑器来说,想找到一些非常有參考价值的,非常难。本人将在接下来的篇章中慢馒和读者探讨。

 

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/189735.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • 5G的网络切片功能概述「建议收藏」

    5G的网络切片功能概述「建议收藏」5G的网络切片功能概述网络切片的定义我们为什么需要网络切片?移动网络的传统商业模式已经到达瓶颈,处于增量不增收的状态。为了激发垂直行业的新模式,增强大众网细分的能力,我们推出了5G网络切片功能,提供更加完整的隔离、差异化、高效和友好运营的网络能力。切片的本质:提供逻辑网络,提供特定的网络功能和特性。切片实例:一组网络功能实例以及相关资源(计算、存储、网络)网络切片的架构网络切片架构有利于运营商按垂直行业的需求对网络进行定制,从而优化网络性能。5G支持端到端网络..

  • 数据仓库和数据集市详解:ODS、DW、DWD、DWM、DWS、ADS「建议收藏」

    数据仓库和数据集市详解:ODS、DW、DWD、DWM、DWS、ADS「建议收藏」@TOC数据流向应用示例何为数仓DWDatawarehouse(可简写为DW或者DWH)数据仓库,是在数据库已经大量存在的情况下,它是一整套包括了etl、调度、建模在内的完整的理论体系。数据仓库的方案建设的目的,是为前端查询和分析作为基础,主要应用于OLAP(on-lineAnalyticalProcessing),支持复杂的分析操作,侧重决策支持,并且提供直观易懂的查询结果。目前行业比较流行的有:AWSRedshift,Greenplum,Hive等。数据仓库并不是数据的最终目的地

  • 使用pycharm创建Django项目[通俗易懂]

    使用pycharm创建Django项目[通俗易懂]创建项目1.使用命令行创建项目如果这是你第一次使用Django的话,你需要一些初始化设置。也就是说,你需要用一些自动生成的代码配置一个Djangoproject——即一个Django项目实例需要的设置项集合,包括数据库配置、Django配置和应用程序配置。打开命令行,cd到一个你想放置你代码的目录,然后运行以下命令:django-adminstartprojectmysite#mysite是项目名这行代码将会在当前目录下创建一个mysite目录。如果命令失

  • DOS命令copy con的用

    DOS命令copy con的用copy是复制命令con 是dos 设备文件的简称。 在dos中把很多外部设备作为文件,称为设备文件。dos中这样规定的:con 控制台(键盘/显示器) aux (或com1)第一个串口 lpt1 第一个并行打印机接口,nul 不存在的设备 所以,举例说明: copy con abc

  • Docker卸载_退出docker容器命令

    Docker卸载_退出docker容器命令##1)进入docker的安装目录cd/usr/local/bin/##2)删除与docker相关的文件夹sudorm-rfdocker*sudorm-rfcom.docker.*sudorm-rfhub-tool*sudorm-rfkube*sudorm-rfvpnkit*完成!

  • intellij idea输出语句快捷键_常用快捷键大全图片

    intellij idea输出语句快捷键_常用快捷键大全图片其他的快捷键还有很多,象Ctrl+G(跳转到指定行)、Ctrl+F4(关闭当前编辑页面)、Ctrl+F(搜索)等等,这些快捷键由于是各个编辑器都会提供的,而且定义的键位也都差不多,就没什么可说的了;Alt+回车导入包,自动修正Ctrl+N 查找类Ctrl+Shift+N查找文件Ctrl+Alt+L 格式化代码Ctrl+Alt+O优化导入的类和包Alt+Ins

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号