napisalem program do chatu. Jak przewijac RichEdit,
aby byl zawsze widoczny text na dole?
Jakas procedurka? podajcie kawalki kodu--Vroc
0
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/forum/index.php?action=show&id=1795--Pawel
Delphi6
0
:D :D :D :D :D :P