Access violation on dialog close

[mark]

Hi,

When creating a message dialog runtime like below, I get an access violation when clicking the OK button quickly twice (or more).

Code: Select all

  LDlg := IWCGCreateMessageDialog('',
                                  mtInformation,
                                  [mbOk],
                                  procedure(Dialog: TIWCGJQMsgDialog; AResult: TModalResult)
                                  begin
                                  end);

Attached is a simple demo project, might take a few tries to get the error.
Is this an issue in the dialog component?

Mark

[Alexander Bulei]

Hi mark,
I've tried your testcase and can't reproduce.

BR

[mark]

Hi Alexander,

Thanks for your reply.
I retried with the latest version of the components and Delphi 10.4.2 and I can't reproduce the issue myself now either.
Maybe time to think about upgrading some tools.

Mark