mskedit.pas

来自「计量功能 事件记录 购电提醒 欠费报警 负荷控制 自检功能 显示功能」· PAS 代码 · 共 38 行

unit MskEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, Db;

type
  TMskEdit = class(TMaskEdit)
  private
    { Private declarations }
  protected
    { Protected declarations }
    procedure ValidateError; override;
  public
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Myself', [TMskEdit]);
end;

procedure TMskEdit.ValidateError;
begin
  MessageDlg('系统提示:'+#13+#13+'输入数据不正确,请重新输入!',mtError,[mbOK],0);
  Exit;
end;

end.