delphi - 捕获 PictureMask 异常退出时验证 wwDBedit 控件

Question

我在公司的项目中使用delphi。我正在使用 infopower 的控件，并且我有一个 DBedit，其中设置了图片蒙版。如果插入错误的类型值，在退出控件时，我想捕获异常以更改异常消息。我的问题是我无法理解何时发生图片蒙版验证。我尝试在 OnExit 事件上放置 Try/Except block ，但它没有被缓存，而是以默认消息触发。

我在控件的原始代码中看到异常出现在私有(private)的 CMExit 过程中，我无法覆盖它或了解哪个事件触发它。

我问如何在代码中捕获该消息。

Answer 1

您可以将插入器类添加到表单并处理消息 CM_EXIT 中的异常。

type
  TwwDBEdit= class (wwdbedit.TwwDBEdit)
    procedure CMExit(var Message: TCMExit); message CM_EXIT;
  end;

  TForm1 = class(TForm)
    wwDBEdit1: TwwDBEdit; 
  //..... other declarations here
implementation

{$R *.dfm}
{ wwDBEdit1 }

procedure TwwDBEdit.CMExit(var Message: TCMExit);
begin    
  try
    inherited; // call the inherited handler within try
  except
    Showmessage('Your Code'); // and handle it in except
  end;

end;