RichEdit Focus Ligne [Résolu]

Question

Posez votre question Signaler

RichEdit Focus Ligne [Résolu]

rafraf6 18 Messages postés vendredi 5 novembre 2004Date d'inscription 19 mai 2005 Dernière intervention - 18 mai 2005 à 14:54 - Dernière réponse : rafraf6 18 Messages postés vendredi 5 novembre 2004Date d'inscription 19 mai 2005 Dernière intervention

- 19 mai 2005 à 13:25

Delphi / Pascal Posez votre question Signaler

Bonjour,

J'ai 1 variable i qui va recevoir la ligne sélectionnée avec le curseur de la souris. Et je voudrais mettre cette ligne en surbrillance des que l'on sélectionne( mettre le focus) mais j'y arrive pas.

Cette fonction va retourner la ligne selectionnée :

function RichRow(m:TRichedit) : LongInt;
begin
Result:=SendMessage(m.Handle,EM_LINEFROMCHAR,m.SelStart,0);
end;

Puis dans 1 procedure Onclick:

var i :LongInt;
i := RichRow(RichEdit1);
RicheEdit1.Lines[i] //??? Je voudrais mettre cette ligne en surbrillance???

Merci

Afficher la suite