Discussion :

[h4mz4]

Bonjourn

Suite à la discussion suivante, connaitre la position de mon curseur dans un memo la méthode décrite ne marche pas pour moi ???

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    StatusBar1: TStatusBar;
    procedure Memo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var Line, Column : integer;
begin
With Memo1 do begin
   Line := Perform(EM_LINEFROMCHAR,SelStart, 0) ;
   Column := SelStart - Perform(EM_LINEINDEX, Line, 0) ;
end;
StatusBar1.Panels.Items[0].Text:=inttostr(line);
 
end;
 
end.

Merci de bien vouloir m'aider

[NABIL74]

bonjour à toutes et à tous,
@h4mz4: pour que ça marche: dans la propriété "Panels" du StatusBar ajoute une nouvelle "StatutPanel" et puis ajoute le code dans l'événement "onKeyDown" du "memo1".

bonne journée.

NABIL74

[h4mz4]

ok merci ca fonctionne tres bien

[ero-sennin]

Un petit ?

[h4mz4]

merci , bonne nuit

[cincap]

@ H4mz4, j'avais fait ceci pour récupérer la ligne et la colonne au bon endroit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var line,col :integer;
  begin
  line:=sendMessage(memo1.Handle,EM_LineFromChar,memo1.SelStart,0);
  col:=memo1.Selstart-sendMessage(memo1.Handle,EM_LineIndex,line,0)+1;
  panel1.caption:='Ligne n°: '+inttostr(line+1)+'    Colonne n°: '+inttostr(col);
end;

@ Nabil74,

et puis ajoute le code dans l'événement "onKeyDown" du "memo1".

pour moi c'est dans l'évenement "OnMouseDown".

@+,

Cincap

[NABIL74]

salut,
@cincap:

pour moi c'est dans l'évenement "OnMouseDown".

mais quand tu saisis un texte dans le Memo avec ton clavier sans utiliser la souris, ta procédure n'indiquera pas le numéro de ligne!
donc pour bien contrôler la saisie, on va ajouter mon code déjà cité dans
le topic:http://www.developpez.net/forums/d73...urseur-memo/ca
les deux événements:"OnKeyDown" et "OnMouseDown".comme ça, le numéro de ligne sera toujours indiqué.

bonne journée.

NABIL74

[cincap]

@ NABIL74, autant pour moi mais le code que je suggère permet de mieux préciser la colonne, pour la ligne c'est ok les deux codes.

Maintenant c'est à voir d'ou on se place pour le comptage.

@+,

Cincap