View Issue Details

IDProjectCategoryView StatusLast Update
0002426JEDI VCL00 JVCL Componentspublic2005-01-02 05:14
ReporteranonymousAssigned To 
PrioritynormalSeveritymajorReproducibilityalways
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.

Relationships

related to 0002398 resolved Problem with TJvDatePickerEdit with Delphi 2005 

Activities

user72

2004-12-22 14:03

  ~0005990

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

remkobonte

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.

anonymous

2004-12-24 09:06

viewer   ~0006005

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

remkobonte

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);
  try
    with Result do
    begin
      {$IFDEF VCL}

to

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

anonymous

2004-12-25 02:37

viewer   ~0006007

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

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

obones

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 =>