TRichEdit/TDBRichEdit: Zeichen unter der Maus ermitteln?

[freejay]

Hallo,

weiss einer von Euch, wie ich an den Text unter dem Mauszeiger herankomme?

[Ich meine nicht die Eingabemarke (Caret) sondern die Mausposition (X,Y), die man z.B. bei MouseMove zur Verfügung hat!]

Die Position innerhalb des RichEdit.Text wäre mein Wunschwert (analog zu SelStart).

Kann mir da jemand weiterhelfen?

Danke!

freejay

[marabu]

Hi freejay,

schau mal hier:

Delphi-Quellcode:

procedure TDemoForm.RichEditMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  iLine, iOffset, iPos: Integer;
  p: TPointL;
begin
  with RichEdit do
  begin
    p.x := x;
    p.y := Y;
    iOffset := Perform(EM_CHARFROMPOS, 0, Integer(@p));
    iLine := Perform(EM_LINEFROMCHAR, iOffset, 0);
    iPos := iOffset - Perform(EM_LINEINDEX, iLine, 0);
    StatusBar.SimpleText := Format('x = %d    y = %d', [iPos, iLine]);
  end;
end;

Grüße vom marabu

[freejay]

Vielen Dank! Das hat mir sehr geholfen!

Mit solchen Messages habe ich in den letzten 15 Jahren nicht gearbeitet - da wär ich nie drauf gekommen...