Discussion :

[delphidebutant]

Bonjour,

Dans un TMemo, je voudrais récupérer la chaine sur laquelle je clique (et son index, tant qu'à faire), pour faire un traitement dessus.

Ça doit être facile, mais je sèche....

Merci pour votre aide

[Soulama]

Salut,
regarde sur le forum, jai deja posté une solution concernan ce sujet.

[ero-sennin]

Salut,

Comme dit Soulama, une petite recherche sur le forum t'aurait conduit à ce post

En espérant que c'est ce que tu souhaites

[delphidebutant]

Désolé.

je ne comprends pas le code sur le lien indiqué.

J'aimerais bien récupérer le "IndexdeLaLigne" indiqué sur ce post, par un double clic, par exemple...

Mais c'est po clair, mais po clair du tout, ce que vous m'indiquez...

[exoseven]

dans le gestionnaire de ton double clic, tu fais :

Code :

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

indexdelaligne := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, memo1.SelStart, 0);

[delphidebutant]

C'est la première chose que j'ai faite, of course.
Et j'obtiens :
indexdelaligne=14, quellle que soit la ligne de mon memo sur laquelle je double-clique.

Et quel que soit le nombre de lignes de mon Tmemo

Avec

Code :

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

indexdelaligne := Memo.SelStart;

j'arrive apparemment à avoir un nb de caractères de début à curseur....constant sur toute une ligne.

Mais c'est le indexdelaligne que je voudrais récupérer...

ou je peux récupérer le texte juqqu'au curseur, et compter le nombre de RC, mais c'est un peu tordu....

Ne me dites pas que cette fonction n'existe pas.

Ou alors, le code indiqué nécessite un subtil réglage de paramètre ???

[ero-sennin]

Salut,

J'ai essayé chez moi, et pas de soucis! Tout fonctionne.
Voici le code :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Memo1DblClick(Sender: TObject);
var
indexdelaligne : integer;
begin
indexdelaligne := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, memo1.SelStart, 0);
ShowMessage(IntToStr(indexdelaligne));
end;

J'ai mis ce code dans le double clic du memo.
Il me récupère bien la ligne.

Si tu as encore un soucis, poste nous ton code pour que l'on puisse y jetter un oeil

@+

[delphidebutant]

J'avais un memo1 dans ma fiche, et je faisais le test sur un memo2

Désolé, pour le dérangement

Ça marche super bien, quand on met les bons memos dans le SendMessage


En fait
Merci pour votre aide

[delphidebutant]

Comme quoi le subtil réglage de paramètres était bien nécessaire, quoi