Welcome to MapForums!

Register, sign in, or use Facebook Connect above to join in and participate in the forum.

When you are signed in, this message, the ads in this row, and the red-underlined link ads all go away.

Subscribe to receive our newsletter.
Subscribe Unsubscribe
Results 1 to 2 of 2

Delphi and ShowModal() problem

This is a discussion on Delphi and ShowModal() problem within the MapPoint Desktop Discussion forums, part of the Map Forums category; Hey, I have following problem: I have an application with several forms. On the main form I put an OleContainer, ...

  1. #1
    digitstudios is offline Junior Member White Belt
    Join Date
    Nov 2006
    Posts
    5

    Delphi and ShowModal() problem

    Hey,

    I have following problem: I have an application with several forms. On the main form I put an OleContainer, and in this olecontainer, I run MapPoint. This works fine. But when I want to show a form using ShowModal() (I'm using BCB6 C++), the modal form is shown behind the main form (and as the mainform is disabled because the other form is modal,the entire application is stuck).

    I know for sure that it's the MapPoint in the olecontainer that causes the problem.

    Does anyone has the same problems? Or better: does anyone know how to solve this?


    Thanks in advance!
    Gianluca

  2. #2
    Wilfried is offline Senior Member Black Belt
    Join Date
    Nov 2004
    Location
    Belgium
    Posts
    2,433

    Re: Delphi and ShowModal() problem

    Hi,

    Hmm I have had that problem, but I forgot what the fix was. Please try following constructor and creation. Put a Panel on your form, name it MPPanel and use following code:

    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
       MP := TMP.Create(Self, MPPanel);
    end;
    This is the constructor:

    Code:
    constructor TMP.Create(AOwner: TComponent; ParentControl: TWinControl);
    var
       vGuid: TGuid;
    begin;
       OleContainer := TOleContainer.create(AOwner);
       OleContainer.Width := ParentControl.Width;
       OleContainer.Height := ParentControl.height;
       OleContainer.Parent := ParentControl;
       OleContainer.CreateObject('MapPoint.Map.EU.11',False);
       OleContainer.DoVerb(1);
       OleContainer.OleObjectInterface.GetUserClassID(vGuid);
       OleContainer.Align := alClient;
       FMap:= IDispatch(OleContainer.OleObject) as map;
    end;

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Mappoint in OleContainer problem //Delphi
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 6
    Last Post: 01-08-2005, 02:03 PM
  2. OleVariant Problem with Delphi 6
    By top204 in forum MapPoint Desktop Discussion
    Replies: 3
    Last Post: 04-29-2004, 05:51 AM
  3. Delphi OleContainer Resize Problem.
    By Sheridan in forum MapPoint Desktop Discussion
    Replies: 5
    Last Post: 12-19-2003, 06:50 AM
  4. Delphi
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 2
    Last Post: 12-18-2003, 12:11 PM
  5. ShowModal hides form with MP in olecontainer
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 0
    Last Post: 05-13-2003, 11:50 AM

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96