CaretPos im StringGrid?

[alcaeus]

Hallo allerseits,

kann ich in einem StringGrid feststellen, an welcher Position sich der Cursor befindet, wenn eine Zelle editiert wird? Ich kann ja im OnKeyUp-Ereignis feststellen, welche Taste gedrückt wurde, aber leider nicht wo sie gedrückt wurde. CaretPos habe ich leider keine gefunden :-?

Danke schonmal im Voraus

Greetz
alcaeus

[Sprint]

OnGetEditText reicht dir nicht?

[alcaeus]

Was bringt mir die Funktion? Ich muss nicht wissen, wann der Wert gelesen wird, sondern ich müsste wissen, an welcher Stelle das Caret in einer bestimmten Zelle steht. Ich weiß in welcher Zelle ich mich befinde, ich müsste nur noch wissen genau an welcher Stelle im Text dieser einen Zelle ;)

Greetz
alcaeus

[marabu]

Wahrscheinlich eine dieser in Vergessenheit geratenen Fragen, aber falls sich noch jemand für die Lösung interessiert - hier ist eine:

Delphi-Quellcode:

procedure TGridForm.StringGridKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  dw: DWORD;
  pt: TPoint;
begin
  GetCaretPos(pt);
  dw := SendMessage(GetFocus, EM_CHARFROMPOS, 0, pt.Y shl 16 + pt.X);
  Statusbar.SimpleText := Format('caret position is %d', [LongRec(dw).Lo]);
end;

Grüße vom marabu