Discussion :

[patrice@]

Bonjour à tous,
J'ai besoin de connaitre la position de mon curseur de souris alors que je suis en saisie DANS une cellule d'une StringGrid.
L’évènement GetCursorPos ne fonctionne que quand on survole un composant, mais là, j'ai besoin de savoir, en étant dans une cellule et en mettant le curseur de ma souris dans la cellule où elle est par rapport au bord.
Bon ... on schéma valant 1000 mots ...

mon curseur de saisie est après le z, mon curseur de souris est dans la partie droite de la cellule, ce sont les coordonnées du curseur de la souris par rapport au bord de ma cellule qui m’intéresse ... c'est faisable ?

[XeGregory]

https://docwiki.embarcadero.com/Libr....InplaceEditor

Exemple :

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
47
const
  WM_MESSAGE = WM_USER + 1;
 
type
  TSG_InplaceEditor = class helper for TStringGrid
 
  public
    { Déclarations publiques }
    function GetInplaceEditor(): TInplaceEdit;
  end;
 
type
  TForm1 = class(TForm)
    StringGrid: TStringGrid;
    procedure StringGridGetEditText(Sender: TObject; ACol, ARow: Integer; var Value: string);
 
  private
    { Déclarations privées }
    procedure OnMyMessage(var Msg: TMessage); message WM_MESSAGE;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function TSG_InplaceEditor.GetInplaceEditor: TInplaceEdit;
begin
  Result := InplaceEditor;
end;
 
procedure TForm1.OnMyMessage(var Msg: TMessage);
var
  InplaceEdit: TInplaceEdit;
begin
  InplaceEdit := StringGrid.GetInplaceEditor();
 
  if Assigned(InplaceEdit) then // Exemple :
    InplaceEdit.SelStart := InplaceEdit.GetTextLen;
end;
 
procedure TForm1.StringGridGetEditText(Sender: TObject; ACol, ARow: Integer; var Value: string);
begin
  PostMessage(Handle, WM_MESSAGE, 0, 0);
end;

Maintenant récupéré la position de la souri GetCursorPos dans le InplaceEdit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.OnMyMessage(var Msg: TMessage);
var
  InplaceEdit: TInplaceEdit;
  PointXY : TPoint;
begin
  InplaceEdit := StringGrid.GetInplaceEditor();
 
  if Assigned(InplaceEdit) then
  begin
    InplaceEdit.SelStart := InplaceEdit.GetTextLen;
    GetCursorPos(PointXY);
    Form1.Caption := 'X = '+IntToStr(PointXY.x)+', Y = '+IntToStr(PointXY.y);
  end;
end;

Faudrait pouvoir récupéré la position du curseur ( | ) dans le InplaceEdit et récupéré les coordonnés X & Y du curseur.

Peut-être de cette façon la

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
function GetCursorPosToControl(AControl: TWinControl): TPoint;
var
  P: TPoint;
begin
  GetCursorPos(P);
  ScreenToClient(AControl.Handle, P);
  Result := P;
end;
 
procedure TForm1.OnMyMessage(var Msg: TMessage);
var
  InplaceEdit: TInplaceEdit;
  PointXY : TPoint;
begin
  InplaceEdit := StringGrid.GetInplaceEditor();
 
  if Assigned(InplaceEdit) then
  begin
    InplaceEdit.SelStart := InplaceEdit.GetTextLen;
    PointXY := GetCursorPosToControl(InplaceEdit);
    Form1.Caption := 'X = '+IntToStr(PointXY.x)+', Y = '+IntToStr(PointXY.y);
  end;
end;