VCL编写笔记整理

Posted 游子日月长

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了VCL编写笔记整理相关的知识,希望对你有一定的参考价值。


unit hzqEdit1;

interface

uses
  SysUtils, Classes, Controls, StdCtrls;

type
  TEditDataType = (dtpString, dtpInteger, dtpFloat);
  ThzqEdit = class(TEdit)
  private
    FDataType: TEditDataType;
    Fprecision: Integer;
    procedure KeyPress(var Key: Char); override;
    procedure SetDataType(const Value: TEditDataType);
  protected
  public

  published
    property DataType: TEditDataType read FDataType write SetDataType default dtpString; //设置输入的数据类型
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents(‘Hzq‘, [ThzqEdit]);
end;

procedure ThzqEdit.SetDataType(const Value: TEditDataType);
begin
  FDataType:=Value;
end;

procedure ThzqEdit.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;

end.

 

打开delphi自带的Image Editor(ToolsàImage Editor),新建一个组件资源(fileànewàComponent Resource File (.dcr)),在弹出的窗口中右键单击new新建一个bitmap位图资源调整好位图的大小(我们用24*24)和色深后确定,双击建立好的位图名字还是做图(做图工具的使用基本和windows自带的画图程序差不多,这里略过),完成后我们需要为位图文件另取一个名字(右键点击bitmap),因为delphi强制要求这个位图的名字要和组件的名字一样,并且要全部大写,这里我们就取为:TCLOCK。最后保存这个资源文件到我们的组件包(dpk文件)目录,命名为ClockDcr.dcr。最后在Clock的代码中的interface部分加入一个编译器开关:{$R ClockDcr.dcr}然后重新编译更新组件

以上是关于VCL编写笔记整理的主要内容,如果未能解决你的问题,请参考以下文章

JAVA项目启动脚本编写的一些笔记整理

JAVA项目启动脚本编写的一些笔记整理

[笔记]这阶段的有道云笔记前端部分整理

狂神Spring Boot 员工管理系统 源码 + 笔记 + web素材 超详细整理

Struts2学习笔记整理

python语言学习笔记整理