View Issue Details

IDProjectCategoryView StatusLast Update
0002426JEDI VCL00 JVCL Componentspublic2005-01-02 05:14
ReporteranonymousAssigned To 
Status resolvedResolutionfixed 
Product Version3.00 BETA 2 
Target VersionFixed in Version3.00 RC 1 
Summary0002426: MessageDlgEx with delphi 2005
Descriptionsorry for my english

the function MessageDlgEx with parameters (dckScreen, dckActiveForm, dckMainForm) doesn't work with delphi 2005.

the message is on the left upper corner of the screen (0,0)

version tested (3.00b2 and the version date 2004/12/22

TagsNo tags attached.


related to 0002398 resolved Problem with TJvDatePickerEdit with Delphi 2005 



2004-12-22 14:03


Probably the same issue. I expect there to be more of these...


2004-12-23 12:00

developer   ~0006000

We have D2005 at work now, so I could check this out.

You must set either Position to poDesigned or PopupMode to pmAuto.

The value of Position is set to poDefaultPosOnly in CreateNew. If PopupMode = pmNone (the default) then the window will be recreated in TCustomForm.ShowModal (RecreateWnd call), because Position is posDefaultPosOnly the position is not stored while the window is recreated. Thus

* either set position to poDesigned, so the position is stored while the window is recreated.
* or set PopupMode to pmAuto, so the window is not recreated in the ShowModal call.


2004-12-24 09:06

viewer   ~0006005

thanks but i have my form = poScreenCenter and PopupMode = pmAuto and doesn't work


2004-12-24 12:53

developer   ~0006006

Last edited: 2004-12-24 12:55

I meant that the properties of the form created by MessageDlgEx must be changed. Thus change in the CreateDSAMessageForm function in JvDSADialogs.pas:

  Result := TDSAMessageForm.CreateNew(Screen.ActiveCustomForm);
    with Result do
      {$IFDEF VCL}


  Result := TDSAMessageForm.CreateNew(Screen.ActiveCustomForm);
    with Result do
      Position := poDesigned;
      PopupMode := pmAuto;
      {$IFDEF VCL}


2004-12-25 02:37

viewer   ~0006007

Thanks, it's good. i just add {$IFDEF DELPHI9}

  Result := TDSAMessageForm.CreateNew(Screen.ActiveCustomForm);
    with Result do
      {$IFDEF DELPHI9}
    Position := poDesigned;
    PopupMode := pmAuto;
      {$ENDIF DELPHI9}
      {$IFDEF VCL}


2005-01-02 05:14

administrator   ~0006053

This is now fixed in CVS

Issue History

Date Modified Username Field Change
2004-12-22 12:57 anonymous New Issue
2004-12-22 14:02 user72 Relationship added related to 0002398
2004-12-22 14:03 user72 Note Added: 0005990
2004-12-22 14:03 user72 Status new => feedback
2004-12-23 12:00 remkobonte Note Added: 0006000
2004-12-24 09:06 anonymous Note Added: 0006005
2004-12-24 12:53 remkobonte Note Added: 0006006
2004-12-24 12:55 remkobonte Note Edited: 0006006
2004-12-25 02:37 anonymous Note Added: 0006007
2005-01-02 05:14 obones Status feedback => resolved
2005-01-02 05:14 obones Resolution open => fixed
2005-01-02 05:14 obones Assigned To => obones
2005-01-02 05:14 obones Note Added: 0006053
2005-01-02 05:14 obones Assigned To obones =>