cursor position anzeigen

[fkerber]

Hi!

in nem Richedit z.B. so:

Delphi-Quellcode:

procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
// in die Statusbar wird die Cursorposition geschrieben
  StatusBar1.Panels.Items[0].Text := 'Cursor: ' +
// Zeile bestimmen
  IntToStr(SendMessage(RichEdit1.Handle, EM_LINEFROMCHAR,
  RichEdit1.SelStart,0)+1) + ' : ' +
// Spalte bestimmen
  IntToStr(RichEdit1.SelStart-SendMessage(RichEdit1.Handle,
  EM_LINEINDEX, SendMessage(RichEdit1.Handle,
  EM_LINEFROMCHAR,
  RichEdit1.SelStart, 0), 0)+1);
end;

hier ist google dein Freund

ciao fkerber