Delphi Tips & Tricks softsale > Delphi Tips & Tricks      

< poprzednia rada następna rada >

Jak przewinąć memo programowo ?

Przewijanie w dół realizuje procedura MemoScrollDown(Memo:TMemo) a w górę procedura MemoScrollUp(Memo:TMemo).Wysyłany jest odpowiedni komunikat WM_VSCROLL z wartością parametru nScrollCode odpowiednio SB_LINEDOWN ( w dół) lub SB_LINEUp ( w górę). W podobny sposób można przewijać się o stronę w górę (SB_PAGEUP) lub o stronę w dół (SB_PAGEDOWN). 


procedure TForm1.MemoScrollDown(Memo: TMemo);
var
 ScrollMessage:TWMVScroll;
 i:integer;
begin
 ScrollMessage.Msg:=WM_VScroll;
 for i := 0 to Memo.Lines.Count do
 begin
  ScrollMessage.ScrollCode:=sb_LineDown;
  ScrollMessage.Pos:=0;
  Memo.Dispatch(ScrollMessage);
 end;
end;

Wywołanie: MemoScrollDown(Memo1); lub MemoScrollUp(Memo1);

Przewijanie po linii w dół lub w górę ilustruje przykład tip29.zip


SOFTSALE - Oprogramowanie i Szkolenia
softsale@softsale.com.pl
03-565 Warszawa , ul. Borzymowska 43 lok. 301C
tel/fax:4084840,0607612428