Mam komponent RichEdit i dodaję do niego linijki za pomocą rText.Lines.Add('text');
Jak zrobic, aby przewijał się za tekstem?--Delphi 6
Pozdrowienia,
Imperior
RichEdit.ScrollBy + F1--Astacus (D5 Pro)
stacus w dniu 25.3.2002 13:23 napisal:
RichEdit.ScrollBy + F1
>
>--
>Astacus (D5 Pro)
Jak taki cwany jesteś to sam tak zrób i zobacz co wyjdzie--Delphi 6
Pozdrowienia,
Imperior
i co jak to zroboć?
Rozwiazanie czesciowe (z Borland Community):
RichEdit1.Lines.Add('BleBle');
RichEdit1.Perform(EM_SCROLL,SB_LINEDOWN,0);
czesciowe, bo scrolluje Edita tylko o 1 linie w dol. dziala wiec dobrze przy pisaniu wielu linii w pusty Edit. Mysle i szukam dalej.--Pawel
Delphi6
Moja poprawka:
RichEdit1.Lines.Add('BleBle'+IntToStr(Random(30)));
RichEdit1.Perform(EM_SCROLLCARET,0,0); //scrolluje do kursora
RichEdit1.Perform(EM_SCROLL,SB_LINEUP,0);
{Ostatnia linia jest opcjonalna - usuwa niestetyczna pusta linie
z dolu ale wtedy scrollbar jest ustawiony troszke ponad najnizsza pozycja}
Pawel--Pawel
Delphi6
Bravo!
Dzięki bardzo o to chodziło!--Delphi 6
Pozdrowienia,
Imperior
Spoko! A żeby nie było tego że jedna linijka jest nie przewinięta ten kod powinien wyglądać tak:
Chat.Perform(EM_SCROLLCARET,0,0);
Chat.Perform(EM_SCROLL,SB_LINEDOWN,0); //nie LINEUP
uuuuu nie sory (ty ją specjalnie usunąłeś :))) - nie doczytałem :P