Discussion :

[lejert]

Bonjour,

toute la question est dans le titre : je voudrais faire apparaître un TPopupMenu à droite du curseur clignotant de mon TEdit, et pour cela, j'ai besoin de sa position...

Merci d'avance.

[ShaiLeTroll]

Essaye de jouer avec GetCaretPos et GetForegroundWindow ...

[DragonHeart]

Salut,

voici un petit code example reprennant l'une des fonctions que ShaiLeTroll te disais et te permettant de faire ce que tu cherches
je pense que cela devrais t'aider

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var pPoint : TPoint;
begin
  If Button = mbRight Then
  Begin
    GetCaretPos(pPoint);
    pPoint.X := pPoint.X + Edit1.ClientOrigin.X;
    pPoint.Y := pPoint.Y + Edit1.ClientOrigin.Y;
    Edit1.ScreenToClient(pPoint);
    PopupMenu1.Popup(pPoint.X,pPoint.Y);
  End;
end;

[lejert]

Ok merci, ca marche.

Voici un code fonctionnel :

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
23
24
25
unit Utilities;
 
interface
 
uses Forms, StdCtrls, Types, Windows, Classes;
 
function GetEditCarretPosition(Edit : TEdit) : TPoint;
 
 
implementation
 
 
// Returns the coordinates (X,Y) of the carret of a TEdit
function GetEditCarretPosition(Edit : TEdit) : TPoint;
var
    Point : TPoint;
begin
    GetCaretPos(Point);
    Point.X := Point.X + Edit.ClientOrigin.X;
    Point.Y := Point.Y + Edit.ClientOrigin.Y;
    Edit.ScreenToClient(Point);
    result := Point;
end;
 
end.

Merci bcp pour votre aide

[ShaiLeTroll]

Euh, je suis intrigué par

Code :

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

Edit.ScreenToClient(Point);

cela ne sert à rien puisque le paramètre est passé en const ... donc Point ne bouge pas ... et le calcul de ClientOrigin remplace donc cette fonction

et GetCaretPos renvoie la position en coordonnée client de le controle qui détient le focus

je dirais que ceci suffit

Code :

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

1
2
3
4
5
6
// Returns the coordinates (X,Y) of the carret of a TEdit
function GetEditCarretPositionScreen(Edit : TEdit) : TPoint;
begin
    GetCaretPos(Result);
    Result := Edit.ScreenToClient(Result);
end;

[Jipété]

+ 1, Shai,

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Edit1Change(Sender: TObject);
var
  tp: TPoint;
begin
  tp := GetEditCarretPositionScreen(Edit1);
  Label1.Caption := IntToStr(tp.X);
end;

fonctionne impec.
--
jp