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???