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