Letztes Leerzeichen im sichtbaren Bereich eines TEdit finden.

[Ydobon]

Eventuell

Delphi-Quellcode:

var pos: Integer;
    r: TRect;
begin
  Edit1.Perform(EM_GETRECT, 0, @r);
  pos:=Edit1.Perform(EM_CHARFROMPOS, 0, MakelParam(r.Right, 0));

liefert den Index des letzten Zeichens im Text. Dann einfach nur noch herunter zählen.

[haentschman]

Moin...

Zitat:

Ich muss nun die Position des letzten Leerzeichens

...davon habe ich mich auch verleiten lassen.

Zitat:

im sichtbaren Bereich finden.

...das gehört da auch noch zu.

[braunbaer]

gelöst!!

konnte es mit einem temporärem TTextLayout und der Funktion PositionAtPoint() lösen.
PositionAtPoint() gibt mit dem 2ten Parameter true die Position, an der geschnitten werden muss.

Danke an alle.
Gruß
Gebhard