Salut,

tu peux facilement récupérer la postion et la dimension de ton champ :

dw_control.Object.controlname.X
dw_control.Object.controlname.Y
dw_control.Object.controlname.Width
dw_control.Object.controlname.Height

ensuite grâce à ces valeurs tu devrais être en mesure de positionner ta fenêtre .

tu ne peux pas faire le meme systeme que le popmenu ?

tu sais quand on clique sur le bouton droite de la souris, tu vois apparaitre le popmenu juste à l'endroit...

juste une piste...

Marcus a écrit:

Sauf alors, remonter dans tous les "conteneurs" du contrôle et récupérer toutes les
coordonnées, mais çà me semble fastidiueux.

je ne connais pas de méthode plus directe
mais c'est pas si fastidieux que ça par récursivité et controle du type de l'objet
(x,y) du controle dans la dw
(x,y) de la dw dans son parent (tabpage,page)
ainsi de suite par récursivité sur le parent jusqu'à la fenêtre ?

Effectivement, c'était pas très compliqué. C'est même assez simple.
Il s'agit donc de trouver la position d'une datawindow dans une window,
sachant que la datawindow peut être placée directement dans la window ou dans un tabpage
qui est dans un tab qui est dans un tabpage qui est ....

Le code se trouve dans une fonction qui a 2 arguments al_x et al_y passés par référence:

powerobject  lpo_parent
tab    ltab_tab
userobject    luo_uo
w_ancestor  lw_window

// Get positions in the parent object
al_x = This.X
al_y = This.Y
lpo_parent = This.GetParent()

// Loop getting the parent of the object until it is of type window!
Do while IsValid (lpo_parent) 
  If lpo_parent.TypeOf () <> Window! Then
    Choose Case TypeOf (lpo_parent)
      Case Tab!
        ltab_tab = lpo_parent
        al_x = al_x + ltab_tab.X
        al_y = al_y + ltab_tab.Y
      Case UserObject!
        luo_uo = lpo_parent
        al_x = al_x + luo_uo.X
        al_y = al_y + luo_uo.Y        
    End Choose
    lpo_parent = lpo_parent.GetParent()
  Else
    lw_window = lpo_parent
    al_x = al_x + lw_window.WorkSpaceX ()
    al_y = al_y + lw_window.WorkSpaceY ()
    Exit
  End if
Loop
Return 1

bravo et !