przewijanie RichEdit

0

napisalem program do chatu. Jak przewijac RichEdit,
aby byl zawsze widoczny text na dole?
Jakas procedurka? podajcie kawalki kodu--Vroc

0

sprobuj cos takiego:
RichEdit1.SelStart := Length(RichEdit1.Text);
RichEdit1.Perform(EM_SCROLLCARET, 0,0);---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

Miałem dokładnie ten sam problem, oto przykład:
begin
RichEdit1.Perform(EM_SCROLLCARET,0,0); //scrolluje do kursora
RichEdit1.Perform(EM_SCROLL,SB_LINEUP,0); {scrolluje jedną linijkę wyrzej, żeby nie było widać takiej beznadziejnej przerwy}
end;

0

A ja sie bezczelnie upomne o prawa autorskie :-) : oto watek w ktorym po raz pierwszy padla ta odpowiedz:
http://www.4programmers.net/f[...]ction=show&id=1795--Pawel

Delphi6

0

:D :D :D :D :D :P

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