Mega Code Archive

 

Categories / Delphi / VCL

 

Tmemo bilesenini sayfa sayfa ilerletmek

Procedure ScrollMemo(Memo : TMemo; Direction : char); begin case direction of 'a': begin SendMessage(Memo.Handle, { HWND of the Memo Control } WM_VSCROLL, { Windows Message } SB_PAGEDOWN, { Scroll Command } 0) { Not Used } end; 'y' : begin SendMessage(Memo.Handle, { HWND of the Memo Control } WM_VSCROLL, { Windows Message } SB_PAGEUP, { Scroll Command } 0); { Not Used } end; end; end; // Kullanimi procedure TForm1.Button1Click(Sender: TObject); begin // PaheDown ScrollMemo(memo1, 'a'); end;