Sélectionner une ligne dans un mémo avec un click

procedure TfrmMain.Memo1Click(Sender: TObject);
var
Line : Integer;
begin
with (Sender as TMemo) do
begin
Line := Perform(EM_LINEFROMCHAR,SelStart,0);
SelStart := Perform(EM_LINEINDEX, Line, 0);
SelLength := Length(Lines[Line]);
end;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour16/11/2001
VisualisationVu 782 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Objet
Auteur de l'article
P. Below P. Below
connecté le 02/11/2011
19 articles dans la section
Contacter l'auteur