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