Bonjour,

J'aimerais positionner le curseur dans Tmemo via un double clic d'une TListbox

Double clic sur une ligne TListbox = Position curseur Memo [Ligne : ListBox1.ItemIndex , Colonne 0]

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  Memo1.SelStart := Memo1.Perform(EM_LINEINDEX, ListBox1.ItemIndex, 0);
  Notebook1.ActivePage := 'Memo';
end;

Merci pour votre réponse.