MessageDlg function - EmbeddedWB

Pete Jones · 09-23-2009, 06:57 PM

Found a strange error using this with d2009 + TEmbeddedWB.
Steps to reproduce:

Start a new project.
Add TEmbeddedWB to main form
Add a button and i the OnClick event call MessageDlg('test', mtError, [mbOK], 0);

This raises an AV. Using any other TMsgDlgType is OK.
The error does away if TEmbeddedWB is deleted.

Pete

**smot** · 09-26-2009, 09:29 AM

Change the code in EmbeddedWB.pas:

Code:

    if ((DlgClss = '#32770') or (DlgClss = 'Internet Explorer_TridentDlgFrame')) and
      (GetWinClass(Windows.GetParent(PopHandle)) <> 'TApplication') then

to

Code:

 
       DlgClss := GetWinClass(PopHandle);
    if (DlgClss = 'Internet Explorer_TridentDlgFrame') or ((DlgClss = '#32770') and
      ((GetWinClass(Windows.GetParent(PopHandle)) <> 'TApplication') and
      (FindControl(Windows.GetParent(PopHandle)) = nil))) then

(not fully tested, might change it a little but should at least fix the bug)

Pete Jones · 09-26-2009, 12:32 PM

Thanks for that. It seems to have fixed the error

Pete

09-23-2009, 06:57 PM	#1
Pete Jones Junior Member Join Date: Apr 2009 Posts: 10	MessageDlg function Found a strange error using this with d2009 + TEmbeddedWB. Steps to reproduce: Start a new project. Add TEmbeddedWB to main form Add a button and i the OnClick event call MessageDlg('test', mtError, [mbOK], 0); This raises an AV. Using any other TMsgDlgType is OK. The error does away if TEmbeddedWB is deleted. Pete

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

09-26-2009, 12:32 PM	#3
Pete Jones Junior Member Join Date: Apr 2009 Posts: 10	Thanks for that. It seems to have fixed the error Pete