Position du curseur ( ligne et colonne ) dans un memo ou un richedit

Soyez le premier à donner votre avis sur cette source.

Vue 11 966 fois - Téléchargée 674 fois

Description

Mon premier code tout simple pour débutant.

Affiche la position du curseur (ligne et colonne) dans le Panel d'un StatusBar
Pour Memo ou RichEdit.
j'ai vu ça dans le forum mais avec l'utilisation de messages Windows.
Pourtant ces 2 composants possèdent la propriété "CaretPos" pour le faire simplement.

Exemple avec un RichEdit.

Petite modif : suite à un conseil de Delphiprog (voir commentaire ci-dessous), je retire l'argument 'Sender' dans le code ci-dessous.

Dans le zip, j'y ai mis le code fourni par Delphiprog que j'ai essayé de commenter, tant bien que mal, pour les débutants.

Source / Exemple :


procedure TForm1.PosCurseur;
var
  ligne, colonne : integer;
  Affichage : string;
begin
  //Récupère la position de la colonne
  colonne := RichEdit1.CaretPos.X + 1 ;

  //Récupère la position de la ligne
  ligne := RichEdit1.CaretPos.Y + 1 ;

  //Ajoute le texte "lig" et "col" pour l'affichage dans le Panel d'un StatusBar
  Affichage := 'Lig ' + IntToStr(ligne) + ' : Col ' +  IntToStr(colonne);

  //Affiche le texte finale dans le Panel d'un StatusBar
  StatusBar1.Panels.Items[0].Text := Affichage;
end;

Conclusion :


Placer le code ou son appel dans l'événement :
OnSelectionChange pour un RichEdit
OnClick et OnKeyUp pour un Memo
(pour chaque déplacement du curseur).

et dans l'événement OnShow de Tform1
(pour faire apparaître les numéros de ligne et colonne au démarage du prog).

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de crazyjoke

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.