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.
Partager