Delphi XE8 .Zamiana pozycji kursora x na piksel (memo).

Witam Potrzebuje jakoś zamienić pozycje kursora w komponencie 'memo' na pozycje podaną w pikselach . Mówiąc wprost , chce żeby statictext przesuwał się razem z kursorem w memo. Niestety komponent statictext przesuwam tylko w pikselach .left.
Chciałem mnożyć pozycje kursora np *8 , ale rożne znaki przesuwają o różna odległość w pikselach , wiec po paru znakach pozycja statictext.left nie zgadza sie z pozycja kursora. Można to jakoś łatwo zamienić memo.CaretPos.x to .left ?
. Pozdrawiam

Bierzesz linijkę, tekst przed kursorem, GetTextWidth i dodajesz do lefta komponentu.

....dobrze że są tu tacy ludzie . Dziękuje o to mi chodziło.

Pamiętaj tylko, że wykorzystujesz do obliczenia canvę formy - jeśli memo bedzie miało inną czcionkę - użyj najlepiej canvy z memo.

A czy można w jakiś prosty sposób ustawić kursor w pozycji x,y na memo, po to żeby pózniej w to miejsce wstawić zawartosc stringa?

coś na wzór memo1.pozycja x y , . ?
Po prostu chciałbym żeby do czystego memo powstawiać w rózne miejsca kilka stringów tzn w rożne wiersze od rożnych kolumn .

Dlaczego tak:



zwraca mi współrzędne kursora a gdy chce ustawić kursor tak: memo1.CaretPos.x:=pozycja kursora x to wywala błąd ?

Można gdzieś znaleźć opis funkcji dotyczących komponentu memo , głownie chodzi mi o operacje na tekstach w memo . W miare prosto opisane .Help z Delphi nie mogę rozkminić .

Możesz przypisać cały obiekt Memo1.CaretPos := Point(x, y); Następnie przypisując do SelText wstawisz w to miejsce tekst (SelLength ustawione na 0 oczywiście, bo inaczej nadpiszesz).

Wprost do X i Y nie przypiszesz, bo odczyt CaretPos jest tylko getterem zwracającym TPoint, a nie bezpośrednim dostępem do jakiś właściwości.

Dziękuje .Poszło od strzała . Ruszyłem dalej ...do następnej niejasności .