Code: Select all
procedure Tfrm.mhException(const exceptIntf: IMEException; var handled: Boolean);
var
assistant: INVAssistant;
mm: INVEdit;
mr: TNVModalResult;
begin
...
assistant:= exceptIntf.GetAssistant(exceptIntf.ShowAssistant);
assistant.Forms[0].Message:= exceptIntf.ExceptMsg;
mm:= assistant.Forms[0].nvEdit('memo');
mm.Text:= exceptIntf.ExceptMessage;
exceptIntf.EndUpdate;
mr:= assistant.ShowModal(0);
case mr
but when he presses the button SkipBtn, the result is nvmOk, not nvmSkip.
Why is it so?