Delphi CaretPos im StringGrid?

Thema durchsuchen

Ansicht

Themen-Optionen

CaretPos im StringGrid?

Ein Thema von alcaeus · begonnen am 23. Mär 2005 · letzter Beitrag vom 15. Mai 2005

Vorheriger Beitrag

Nächster Beitrag

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge

Re: CaretPos im StringGrid?

15. Mai 2005, 20:57

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

markieren

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