Discussion :

[patrice@]

Bonjour à tous,

Voici mon soucis :
J'ai une fiche qui appelle via un évènement onclick sur un bouton une autre fiche.
Cette 2ème fiche se positionne en fonction de la position du bouton dans l'écran avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.MO_BitBtn27Click(Sender: TObject);
Var
   SourisPos: TPoint;
begin
     GetCursorPos(SourisPos);
     FTriGrid.left:= Mouse.CursorPos.X;
     FTriGrid.Top:=Twincontrol(sender).ClientOrigin.Y+Twincontrol(sender).Height;
     FTriGrid.ShowModal;
end;

Ça fonctionne bien avec un écran, mais pas moyen de comprendre comment faire si la fiche "parent" est sur un autre écran car ce code va mettre la fiche "fille" à la bonne place mais sur l’écran principal.

J'ai essayé des tas de codes sans succès ...
Vous auriez une idée ?

[tourlourou]

Bonjour,

Regarde ici s'il n'y aurait pas une piste.