Discussion :

[Just-Soft]

Bonjour !

Après avoir capturer mon objet OLE, je l'ai déposé dans un panel qui est devenu son conteneur. J'ai remarqué que l'objet OLE prend le dessus sur le mouvement de la souris car l'appel des événements tel que OnMouseMove ne réagit pas à mon code ? d'où ma question Comment intercepter le mouvement de la souris dans un objet OLE ?

afin de mieux comprendre voici un petit code mais qui n'est jamais appelé car l'objet OLE est pardessus mon objet panel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TfmMain.RzPanel_CARTO_MapMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
   ID_WINDOW_MAP : integer;
   msg_mi : string;
   xx, yy : real;
   Code : integer;
begin
  if (CARTO_ZONE) then
  begin
    ID_WINDOW_MAP := OleMapInfo.Eval('FrontWindow()');
    // les coordonnées X, Y
    // X
    msg_mi := 'MapperInfo(' + IntToStr(ID_WINDOW_MAP) + ', 3)';
    Val(OleMapInfo.Eval(msg_mi), xx, Code);
    RzStatusPane_X.Caption := 'X: ' + FloatToStr(xx) + ' °';
    // Y
    msg_mi := 'MapperInfo(' + IntToStr(ID_WINDOW_MAP) + ', 4)';
    Val(OleMapInfo.Eval(msg_mi), yy, Code);
    RzStatusPane_Y.Caption := 'Y: ' + FloatToStr(yy) + ' °';
  end;
end;

[Just-Soft]

Bonjour !

j'ai mis au point une application qui pilote MI. J'ai pû récupérer les coordonnées de ma carte afin de les afficher dans un statusbar. Le seul problème est que je ne peux pas avoir les coordonnées quand je navigue sur ma carte puisque le mouvement de la souris n'est plus reconnu par mon conteneur car l'objet OLE prend le dessus sur le conteneur. Avez vous une idée sur comment faire pour intercepter le mouvement de la souris avec un code MapBasic. Si quelqu'un d'entres vous a réussis à avoir les coordonnées lors de la navigation dans la carte et que MI est piloté par un autre langage alors je suis preneur.

Merci par avance.