Discussion :

[krokmitaine]

Bonjour !
J'ai un TMemo et je voudrais que quand on se déplace dedans (en clair a chaque touche pressée) je puisse récupérer la ligne et la colonne. Pour la ligne j'ai réussi en faisant

Code :

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

1
2
 
ln := SendMessage(mo.Handle, EM_LINEFROMCHAR, mo.SelStart, 0);

Mais impossible de récupérer la colonne.

Paqr ailleurs je fais ça dansa la méthode onKeyPress de mon memo mais le problème c'est que le traitement n'est pas réalisé quand je presse une touche flèche. Une idée ?

Merci

[krokmitaine]

Bien sûr c'est au moment que je poste que je trouve la solution ! ...
La voici :

Code :

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

1
2
3
 
  ln := SendMessage(mo.Handle, EM_LINEFROMCHAR, mo.SelStart, 0);
  col := mo.Selstart - sendMessage(mo.Handle,EM_LINEINDEX,ln,0) + 1;

Par contre j'arrive toujours pas a afficher le numéro de ligne dès que je tappe une touche flèche

[Kahiba]

Un petit RESOLU a coté du titre serait le bienvenue

[krokmitaine]

Bah c'est pas encore tout à fait résolu. Pour l'instant le numéro des lignes et des colonnes que je rrécupère ne change que quand j'ajoute ou caractère ou un changement de ligne. Moi je voudrais qu'il change chaque fois que je déplace mon curseur, à la manière du notepad qui indique dans la status bar le numéro de la ligne et de la colonne à tout instant.

[JeanMarc_T2k]

Bonjour,

En ce qui concerne les flèches de direction, essaye de les gérer dans l'évènement OnKeyDown, au lieu de OnKeyPress, qui ne prend en compte que les touches de caractères (paramètre key de type char passé à la procédure), par contre OnKeyPress prend toutes les touches (paramètre key de type word)

[krokmitaine]

J'ai beau essayé et tourner le problème dans tous les sens, il y a toujours un problème dans les indices. Voici mon 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
41
42
43
44
45
46
 
unit test_ln_col;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
type
  TfmMain = class(TForm)
    sb: TStatusBar;
    mo: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    procedure SetLineColumn(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  end;
 
var
  fmMain: TfmMain;
 
implementation
 
{$R *.dfm}
 
 
procedure TfmMain.SetLineColumn(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  ln, col : Integer;
begin
  ln := SendMessage(mo.Handle, EM_LINEFROMCHAR, mo.SelStart, 0);
  col := mo.Selstart - sendMessage(mo.Handle, EM_LINEINDEX, ln, 1);
  sb.Panels[0].Text := 'Ln : ' + IntToStr(ln) + '     Col : ' + IntToStr(col);
end;
 
procedure TfmMain.FormCreate(Sender: TObject);
begin
  mo.OnKeyDown := SetLineColumn;
end;
 
end.

ps: c'est normal si j'attribue la méthode OnKeyDown de cette façon car en vrai mes tmemo sont crées dynamiquement.

[edam]

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
 
procedure TfmMain.FormCreate(Sender: TObject);
begin
KeyPreview:=true;
end;
 
procedure TfmMain.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
var
  ln, col : Integer;
  mo:TMemo;
begin
     if (msg.CharCode in [37..40]) and ((ActiveControl is TCustomMemo)) then 
       begin
          mo:=ActiveControl;
          ln := SendMessage(mo.Handle, EM_LINEFROMCHAR, mo.SelStart, 0);
          col := mo.Selstart - sendMessage(mo.Handle, EM_LINEINDEX, ln, 1);
          sb.Panels[0].Text := 'Ln : ' + IntToStr(ln) + '     Col : ' + IntToStr(col);
      end;
end;