madExcept，在将其他文件附加到报表之前检查自定义助手中复选框的状态

Question

我已经用一个新的复选框修改了madExcept的发送助手。如果用户选中此框，我想发送错误报告(用户数据文件的副本)的附加附件。

如何检查用户是否选中了该框？

致敬，-Vegar

Answer 1

我在forum.madshi.net的madshi的帮助下解决了这个问题。

我的解决方案涉及TMadExceptionHandler-component和event OnExceptionAction。

procedure TMainForm.MadExceptionHandler1ExceptAction(action: TExceptAction; 
  const exceptIntf: IMEException; var handled: Boolean);
var
  cbSendData: INVCheckbox;
  assistant: INVAssistant;
begin
  if action = eaSendBugReport2 then
  begin
    assistant := exceptIntf.GetAssistant(exceptIntf.SendAssistant);
    cbSendData := assistant.Forms[1].nvCheckBox('SendDataChk');

    exceptIntf.AdditionalAttachments.Clear;
    if (cbSendData.Checked) then
    begin
      //Add data files as attachments...
    end;
  end;
end;

还有一件小事要做，那就是在特殊情况下启用/禁用复选框。Madshi告诉我这样做的正确方法是向助手注册一个actionhandler-callback，并检查复选框上的nvaItemEvent-action。我还没有试过这个。

-Vegar

Answer 2

我不知道madExcept，但只要它的源代码是Delphi (从你的标签上看)，你可以这样检查它：

begin
  if CheckBox1.Checked then
    AttachDataFile;
end;

CheckBox1是将控件拖放到窗体编辑器中时为其设置的名称。如果您不知道该名称，请使用鼠标选择它，然后在对象检查器中查看属性名称。