Discussion :

[Galip]

Bonjour,

J'ai un petit problème, j'aimerais connaître la position du curseur dans un
RichEdit.

Actuellement je développe une application, et je voudrais faire une petite fenetre qui s'ouvre lorsque l'on presse ctrl+space ( un peu comme dans Bcb et pas mal d'autre IDE).

Le seul souci c'est qu'il faudrait que je connaisse la position du curseur afin de positionner la fenetre juste à côter de celui-ci.


Merci d'avance.

[blondelle]

Salut Galip:
Une possibilite:
Un TRichEdit deux TLabel double click dans l'evenement OnMouseMove du TRichEdit le code a inserer

Code :

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

1
2
3
4
5
6
7
 
void __fastcall TForm1::RichEdit1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
Label1->Caption = X;
Label2->Caption = Y;
}

Ca peut se faire sur un autre evenement Mouse

[Galip]

Merci de ta réponse,

Le seul souci c'est qu'avec l'événement OnMouseMove, j'ai la position de la souris et ce qu'il me faudrais c'est la position du curseur.

[ero-sennin]

Salut,

Tu peux faire ceci dans le OnKeyUp ou encore OnKeyPress ... :

Code :

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

1
2
3
4
5
void __fastcall TForm1::RichEdit1KeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  ShowMessage(IntToStr(RichEdit1->SelStart)); // Affiche la position du caret
}

J'espère avoir bien saisi le sens de ta question
@+

EDIT:

Ce code est peut être plus dans ce que tu souhaites faire je pense :

Code :

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

1
2
3
4
5
void __fastcall TForm1::RichEdit1KeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  ShowMessage("X:"+IntToStr(RichEdit1->CaretPos.x)+", Y:"+IntToStr(RichEdit1->CaretPos.y));
}

[Galip]

Merci beaucoup ton code marche nikel.

C'est clair et efficace

[ero-sennin]

Merci beaucoup ton code marche nikel.

C'est clair et efficace

Merci !

Par contre, j'arrive pas à positionner un bouton à l'endroit du Caret!
Le soucis, c'est la conversion de données ...

J'ai ce code mais en vain :

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
void __fastcall TForm1::Cliquer(TObject *Sender)
{
  TButton *BoutonCliquer = (TButton*)Sender;
  BoutonCliquer->Visible=False;
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 TPoint a= ClientToScreen(RichEdit1->CaretPos);
 TButton *MyButton = new TButton(this);
 MyButton->Parent=this;
 MyButton->Left = a.x + MyButton->Width /2;
 MyButton->Top = a.y + MyButton->Height;
 MyButton->OnClick=Cliquer;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 TPoint a= ClientToScreen(RichEdit1->CaretPos);
ShowMessage(IntToStr(a.x)+" "+IntToStr(a.y));
}
//---------------------------------------------------------------------------

Si jamais tu as réussi, je suis prenant