Przesuwanie memo/richedit

0

Napisalem sobie taka procedurke ze przy kazdej zmianie zawartosci memo/richedit automatycznie to pole przesuwane jest na sam koniec tekstu tak ze widac ostatnia dodana linijke

Zrobilem to za pomoca:
[code]
RichEdit1.SetFocus;
RichEdit1.SelText := RichEdit.GetTextLength;
[/code]
(pisalem z pamieci wiec moga byc jakies drobne bledy skladniowe)

Jedyne co mnie przy tym irytuje to to ze mi miga kursos na koncu tego Richa - czy da sie to jakos ominac?

Wlasciwosc ReadOnly mam na True

0

Przerzuć Focus na jakiś inny komponent. Była tez chyba na forum jakaś inna metoda chowająca kursor, poszukaj.

0

Aby przesunąć RichEdit na sam dół, napisz cos takiego (w RichEdit1.OnChange):
[code]RichEdit1.Perform(EM_SCROLLCARET,0,0);[/code]

[dopisane]
Aha, ale żeby posuneło się na sam dół to musisz najpierw tam ustawić kursor (a kursor ustawia się na dole sam, jak będziesz do richedita text dodawał używając .lines.add). Kożystając z Perform nie musisz na richedit ustawiać "Focusu"

0

Dziala

Dzieki

1 użytkowników online, w tym zalogowanych: 0, gości: 1