POSITION DU CURSEUR ( LIGNE ET COLONNE ) DANS UN MEMO OU UN RICHEDIT

Commentaire de crazyjoke le 08/07/2003 12:27:35

Merci pour ce code qui peut être très utile lors de la création d'application dans lesquelles l'utilisateur doit taper beaucoup de texte (en + sa fait Pro :-)).

@++

Commentaire de bazole le 28/07/2003 19:43:48

Salut Delphiprog

Pourtant, si tu fait le test, tu verra que l'on obtient bien le numéro de ligne et de colonne du curseur.

Commentaire de Delphiprog le 29/07/2003 09:54:48 administrateur CS

Tu as effectivement raison et l'aide en ligne au sujet de la propriété CaretPos est donc erronnée.
Remarque : lors de la création de la fiche, tu passes à PosCurseur le paramètre Sender reçu par la méthode Create. C'est dangereux et heureusement que tu ne l'utilises pas dans ta procédure.

Suggestions :
procedure PosCurseur(Memo: TCustomMemo; Panel: TStatusPanel);
var
  ligne, colonne : integer;
  Affichage : string;
begin
  //Récupère la position de la colonne
  colonne := Memo.CaretPos.X + 1 ;

  //Récupère la position de la ligne
  ligne := Memo.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
  Panel.Text := Affichage;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  PosCurseur(RichEdit1, StatusBar1.Panels.Items[0]);
end;

procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
  PosCurseur(Sender as TCustomMemo, StatusBar1.Panels.Items[0]);
end;

Ceci permet de rendre la procédure PosCurseur indépendante, facilement réutilisable et de ne pas lui passer n'importe quoi comme arguments. En transmettant un TCustomMemo comme premier argument, tu couvres donc aussi bien le TMemo que le type TRichEdit puisqu'il s'agit de leur ancêtre commun.

En tous cas, merci de ne nous avoir révélé cette astuce.