Discussion :

[BuzzLeclaire]

bonjour,

Cela n'a rien a voir avec la souris.

Je voudrais simplement ouvrir une fenetre à l'endroit où je tape un caractères.

Sachant que mon richedit est dans un pagecontrol lui même dans une Form en fsmidchild et elle même dans une form principal.

Comment tout simplement récupérer la position ce mon curseur.

Evidement j'ai essaye j'en suis là

Code :

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

1
2
3
 
          Left := TRichEdit(Sender).CaretPos.X + Self.Left + TRichEdit(Sender).Left;
          Top := TRichEdit(Sender).CaretPos.Y + Self.top + TRichEdit(Sender).Top;

Mais m'a fenêtre n'ai pas bien placer.

J'ai essayé d'utiliser le ClientToScreen, sauf que je fias cela dans l'evenement KeyDown donc je n'ai pas de X,Y.

Merci à vous

[BuzzLeclaire]

J'y suis presque...

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
      X := TRichEdit(Sender).CaretPos.X;
      Y := TRichEdit(Sender).CaretPos.Y;
      With TFInfosBase.Create(Self) do
      Begin
        try
          champs := '';
          With TrichEdit(Sender).ClientToScreen(Point(X,Y)) do
          begin
            Left := X;
            Top := Y;
          end;
          Panel1.Caption := 'Liste des ';
          ShowModal;
        finally
          free;
        end;
      end;

[Linkin]

Mouse.CursorPos ne serait-il pas ce que tu cherches?

[BuzzLeclaire]

Salut,

Non en fait je cherche à connaitre la position du curseur clavier car ma form doit s'ouvrir à droite de ma saisie et non de la souris.

Merci à toi.

[Linkin]

Oups j'ai fait mon boulet. Désolé .

[Cl@udius]

Salut Buzz

Il y a un ch'tit défaut dans ton code.
TRichEdit.CaretPos renvoie des coordonnées 'caractères', c'est-à-dire par exemple 8° caractère et 2° ligne.
Et comme tu traites ce TPoint comme des coordonnées écran, ben c'est pas bon.

Il faut donc obtenir les coordonnées écran (en pixels) du caret. Utilise pour cela la fonction GetCaretPos.

Ce qui donne en simplifié:

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
var
  MyPoint: TPoint;
begin
  // Coordonnées 'caractères'
  MyPoint := TRichEdit(Sender).CaretPos;
  // Transformer en coordonnées 'Ecran'
  GetCaretPos(MyPoint);
 
  with TFInfosBase.Create(Self) do
  begin
    try
      with TRichEdit(Sender).ClientToScreen(MyPoint) do
      begin
        Left := X;
        Top := Y;
      end;
      ShowModal;
    finally
      Free;
    end;
  end;
end;

Cela devrait aller mieux.

@+ Claudius.

[Linkin]

Pour me rattraper, c'est la fonction (API) GetCaretPos qu'il faut utiliser

Edit: Grilled! (c'est ça de prendre un client au téléphone )

[BuzzLeclaire]

Salut Cl@udius,

Magistral.... cela fonctionne parfaitement


Merci pour ta recherche Linkin

[Cl@udius]

Magistral.... cela fonctionne parfaitement

Ben voilà, il est content le Claudius.

@+