TStringGrid -> Cursorposition in Zelle bestimmen

[HolgerCW]

Hallo zusammen,

wie kann ich bestimmen, an welcher Stelle der Cursor in z.B. Zelle[1,1] sich befindet ?

Gruss

Holger

[taaktaak]

SingleClickPosition im Grid ermitteln

- im Ereignis OnMouseDown()

Delphi-Quellcode:

procedure T~.sg~MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
var Col,Row : Integer; 
begin
  sg~.MouseToCell(x,y,Col,Row);
  ..

- im Ereignis OnClick()

Delphi-Quellcode:

procedure T~.sg~Click(Sender:TObject);
var P         : TPoint;
    PCol,PRow : LongInt;
begin
  GetCursorPos(p);
 
  with sg~ do begin
    P:=ScreenToClient(P);
    MouseToCell(P.x,P.y,PCol,PRow);
    ..

DoubleClickposition im Grid ermitteln

- ist nur im OnDblClick() und nicht im OnMouseDown() möglich!

Delphi-Quellcode:

procedure T~.sg~DblClick(Sender:TObject);
var P         : TPoint;
    PCol,PRow : LongInt;
begin
  GetCursorPos(p);
 
  with sg~ do begin
    P:=ScreenToClient(P);
    MouseToCell(P.x,P.y,PCol,PRow);
    ..

oder analog natürlich im OnMouseMove()

[s-off]

@taaktaak
Ich denke, dass ist nicht das, was der TE möchte.
Hier geht es wohl eher um die Position des Cursors/Caret im InPlaceEditor einer Zelle.

[HolgerCW]

Hi.

Die Maus ist aussen vor.

In Zelle [1,1] steht z.B. die Zahl 123456

Jetzt möchte ich z.B. wissen ob der Cursor zwischen der 1 und 2 oder eventuell zwischen der 4 und 5 steht.

Wie geht das ?

Gruss

Holger

[s-off]

Du musst eine Ableitung von TStringGrid erzeugen, um auf den als Protected deklarierten InplaceEditor zugreifen zu können.
Wenn Du den hast, kannst Du mit
TMyStringGrid(TStringGrid).InplaceEditor.SelStart die Position des Caret innerhalb des Edits ermitteln.

Beispiel:

Delphi-Quellcode:

Type
   TForm1 = Class(TForm)
      StringGrid1: TStringGrid;
   End;

   TMyStringGrid = Class(TStringGrid)

   End;

[...]

   ShowMessage(IntToStr(TMyStringGrid(StringGrid1).InplaceEditor.SelStart));

Edit: Beispiel hinzugefügt

[DeddyH]

Oder im interface-Abschnitt:

Delphi-Quellcode:

type
  TStringGrid = class(Grids.TStringGrid)
  end;

  TFormMain = class(TForm)
    StringGridBla: TStringGrid;
    //...etc. blabla

Erspart die Casterei

[s-off]

Zitat von DeddyH:

Oder im interface-Abschnitt:

Man lernt nie aus

[HolgerCW]

Super,

das klappt wie geschmiert.

Vielen dank.

[taaktaak]

Sorry für meinen Beitrag, der deutlich an der Fragestellung vorbei ging.


Die Weg zur richtigen Lösung erstaunt mich, da tatsächlich wie von Geisterhand die Methode aus "protected" nun "public" wird. Ich dachte immer, man müsse gezielt einzelne Methoden "publizieren" und alle die man nicht explizit veröffentlicht, würden ihren bisherigen Status behalten.

[DeddyH]

Das kann man wie gezeigt unterlaufen, da Klassen in derselben Unit automatisch "Friends" sind. Ist die Property/Methode der Vorfahrklasse allerdings als strict protected deklariert, muss man sie in der Crackerklasse AFAIK tatsächlich erst "veröffentlichen".