Placer un Label au-dessus du curseur de texte dans un Memo

Bonjour,

Je souhaiterais afficher au-dessus du texte en train d'être saisi dans un TMemo, une bulle d'aide. Mon problème est que je souhaiterais que cette bulle soit toujours au-dessus du curseur de texte, et pas n'importe où sur ma Form. Y'a-t'il un moyen de connaitre la position exacte du curseur de texte, en pixels à partir du haut et de la gauche du Memo ?

Car je pourrais bien utiliser SelStart et SelLength pour connaître la position du curseur, mais mon problème est que cela ne correspond pas à un nombre de pixels, mais à un nombre de lettres... :?

En vous remerciant !

bjr
il y a la propriété CaretPos de TMemo qui renvoit un TPoint indiquant la position du signe insertion dans la zone client et Application->ActivateHint(TPoint CursorPos) permétant de positionner l'info bulle à la position CursorPos soit le code suivant dans l'événement OnChange de Memo1 :

Code:

---

1 2 3 4

void __fastcall TForm1::Memo1Change(TObject *Sender) { Application->ActivateHint(Memo1->CaretPos); }

---

coordialement

Bonjour,

j'ai essayé la méthode de sony351 sous tous les angles mais j'ai pas le Hint qui s'affiche à côté du curseur. Est tu sûr de ton code? Si ca marche chez toi, tu pourrais nous poster le code stp?

Merci

Merci sony351, mais comme le dit Neo41, le hint ne semble pas s'afficher correctement... J'ai bien mis la propriété Memo1->ShowHint à true, et j'ai placé ton code lors de l'événement Memo1->Memo1KeyUp, mais il ne s'affiche que si je déplace le curseur de la souris dans la zone de texte de Memo1 : il suit le curseur de la souris, mais pas le curseur de texte au fûr et à mesure qu'on le tape. Je vais essayer de regarder si on peut aller plus loin avec Memo1->CaretPos.

Bon, ça marche !!!

D'abord, pour que le Label s'affiche au dessus du Memo :

Code:

---

Label1->Parent = Memo1;

---

Puis pour que le Label s'affiche au dessus de la position actuelle du curseur de texte :

Code:

---

1 2	Label1->Top = Memo1->CaretPos.y-10; Label1->Left = Memo1->CaretPos.x;

---

Merci sony351 !! :D


Il me reste par contre un détail à régler, le Label s'affiche bien au dessus du Memo, mais pas au dessus de ma Form. Par exemple, si je suis en train d'écrire sur la 1ère ligne du Memo, le Label qui s'affiche au dessus, est moitié sur le Memo, moitié en dessous de la Form. Comment faire ?... :?:

En fait ça ne marche pas super bien... :cry:

Memo1->CaretPos->y renvoie la ligne, et non la position en pixels... ce qui fait que si mon Memo fait 4 lignes de haut, mais que mon curseur est à la 10ème ligne de texte, ma bulle d'aide n'est pas du tout au bon endroit, elle est bcp trop basse !! J'espère que je me suis fait comprendre...

Je cherche toujours une solution...

Tu pourrais poster le code tout entier stp? chez moi ca affiche le Label largement an dessus que le texte, et en plus ca ne descend pas bien sur ENTER.

Pour l'instant, c'est comme ça, mais ça ne fonctionne pas parfaitement (cf mon précédent post) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

void __fastcall TForm1::Memo1KeyUp(TObject *Sender, WORD &Key, TShiftState Shift) {   // (... code qui donne le texte à afficher...)   Label1->Caption = texte; if(Memo1->CaretPos.y>1) Label1->Top = fabs(Memo1->CaretPos.y*Memo1->Font->Height); else Label1->Top = Memo1->CaretPos.y+15; Label1->Left = Memo1->CaretPos.x; Label1->Visible = true; }

---

attention, c'est sur l'évenemement OnKeyUp du Memo1 (pas OnChange) !!

Salut !

Une idée franchement stupide : et pourquoi ne pas utiliser une form (fsStayOnTop) !
Stupide parce que ça semble consommer pas mal de resources ! Mais si l'effet en vaut la peine !
Remarques... c'est comme ça que je fais mes boites à outils surgissantes
au lieu de les avoir sur une toolbar... mais ça c'est une autre histoire !

A plus et bon réveillon !

Citation:

---

Envoyé par henderson

Salut !

Une idée franchement stupide : et pourquoi ne pas utiliser une form (fsStayOnTop) !
Stupide parce que ça semble consommer pas mal de resources ! Mais si l'effet en vaut la peine !
Remarques... c'est comme ça que je fais mes boites à outils surgissantes
au lieu de les avoir sur une toolbar... mais ça c'est une autre histoire !

A plus et bon réveillon !

---

???

Bonjour,

Et en utilisant le canvas de la form ? Ca ne marcherait pas ? :?

Sinon tu peux, peut etre, t'en servir pour calculer la taille de ton texte en pixel avec la méthode TCanvas::TextWidth

C'est juste une idée comme ça... :oops:

Salut !

Une fsStayOnTop se dessine au dessus de la form qui contient le memo.
En faisant en sorte que cette fsStayOnTop n'ait pas de barre de titre etc...
on peut facilement lui donner une apparence de bulle info.

Ici le problème est que le memo est parent du label. Ce dernier se dessinera donc toujours dans la zone client du memo sans pouvoir déborder... Il est donc rogné s'il dépasse d'un bord ou l'autre du memo !

A plus !

Salut !

Voici comment on peut mettre en oeuvre un hint tel qu'on l'envisage ici, et ce
avec une form.

Form1 contient le TMemo
Form2 est une fiche dont :
- on a vidé tous les BorderIcons,
- BorderStyle sur bsNone
- FormStyle sur fsStayOnTop
- on ajoute une propriété Info du type AnsiString dans sa class, en public
- Width à 135
- Height à 52

Voici ce qu'il y a à faire dans Form1 :

Code:

---

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 26 27 28 29 30 31 32

void __fastcall TForm1::Memo1KeyUp(TObject *Sender, WORD &Key, TShiftState Shift) { Form2->Info = "Bulle"; //s'il y a quelque chose à montrer... c'est ici Form2->FixPosition(); Form2->Show(); Memo1->SetFocus(); } //-- void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { if(Form2->Visible) { Form2->Hide(); } } //-- void __fastcall TForm1::Memo1Click(TObject *Sender) { Form2->Info = "Clic sur Memo"; //s'il y a quelque chose à montrer... c'est ici Form2->FixPosition(); if(Form2->Visible == false) { Form2->Show(); Memo1->SetFocus(); } else { Form2->Repaint(); } }

---

Voici ce qu'il y a à faire dans Form2 (le fameux hint) :

Dans sa class on trouve :

Code:

---

1 2 3

public: AnsiString Info; void __fastcall FixPosition(); //méthode perso pour fixer sa position

---

Dans le .cpp :

Code:

---

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 26 27 28 29 30 31 32 33

__fastcall TForm2::TForm2(TComponent* Owner) : TForm(Owner) { Info = "Bulle"; } //-- void __fastcall TForm2::FixPosition() { TMemo *M = Form1->Memo1; AnsiString S = M->Lines->Strings[M->CaretPos.y].SubString(0,M->CaretPos.x); int y = Form1->Top + M->Top; int h = -M->Font->Height + 2; //Normalement il faudra récupérer l'indice de la ligne du haut int topindex = 0; //voir dans la FAQ... le sujet a déjà été abordé ... SetBounds(Form1->Left + M->Left + Canvas->TextWidth(S), //calculer la position écran : index ligne - index ligne du haut y + ((M->CaretPos.y - topindex) * h) - 8, Width, Height); } //-- void __fastcall TForm2::FormPaint(TObject *Sender) { Canvas->Pen->Color = clBlack; Canvas->Pen->Style = psSolid; Canvas->Pen->Mode = pmCopy; Canvas->Brush->Color = Color; // clInfoBk Canvas->Brush->Style = bsSolid; Canvas->Rectangle(0, 0, Width, Height); Canvas->Brush->Style = bsClear; int y = (Height - Canvas->TextHeight(Info)) / 2; Canvas->TextOut(2, y, Info); }

---

Chez moi ça fonctionne !

A plus !

Merci beaucoup pour cette astuce très détaillée, c'est très sympa à toi... mes meilleurs voeux pour 2005 !

Cependant, je rencontre toujours un problème, lorsque je descends dans les lignes du TMemo : par exemple, si le TMemo fait 5 lignes de hauteur, et que j'écris 15 lignes de texte, l'info bulle apparaît trop bas ! J'espère que je me suis bien expliqué

Salut !

J'ai retrouvé le truc !

Citation:

---

An application sends an EM_GETFIRSTVISIBLELINE message to determine the uppermost visible line in an edit control.

EM_GETFIRSTVISIBLELINE
wParam = 0; // not used; must be zero
lParam = 0; // not used; must be zero

---

Si tu reprends ce que j'ai montré, alors dans la méthode FixPosition de Form2 :

Code:

---

1 2 3 4 5

int Topline = SendMessage(Form1->Memo1->Handle, EM_GETFIRSTVISIBLELINE, 0,0); SetBounds(Form1->Left + M->Left + Canvas->TextWidth(S), y + ((M->CaretPos.y - Topline) * h) - 8, Width, Height);

---

A plus !