Memo中的文本如何实现滚动？

Question

做触摸屏用的，想把文本放入到Memo中，然后让它滚动显示

Answer 1

你的意思是否是显示滚动文本啊，不一定要用Memo啊

Answer 2

Memo的自动滚动 
 --------------------------------------------------------------------------------
 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
  if Key = VK_F8 then
    SendMessage(Memo1.Handle, { HWND of the Memo Control }
                WM_VSCROLL, { Windows Message }
                SB_PAGEDOWN, { Scroll Command }  
                0) { Not Used }
  else if Key = VK_F7 then
    SendMessage(Memo1.Handle, { HWND of the Memo Control }
                WM_VSCROLL, { Windows Message }
                SB_PAGEUP, { Scroll Command }
                0); { Not Used }
end; 

Answer 3

上面的好像是翻页～～～手头没有delphi就是不爽

Answer 4

呵呵, 
// Paramters: SB_LINEUP,SB_LINEDOWN, SB_LINELEFT,SB_LINERIGHT
SendMessage(Memo1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);  // memo1 click Down
把分给bluemeteor(挂月||╭∩╮(︶_︶)╭∩╮) ( ) 好了.

Answer 5

//给你个简单的procedure TForm1.Timer1Timer(Sender: TObject);
begin
memo1.Lines.Move(0,form1.memo1.Lines.Count-1);
end;//这种效果不圆滑
//要想实现平滑滚动，建议使用canvas.textout

Answer 6

你用阿德的，然后设置Memo1的DoubleBuffer :=True;

Answer 7

强烈建议不用MEMO
强烈建议不用MEMO强烈建议不用MEMO
强烈建议不用MEMO

Answer 8

to  myling(阿德) ：
如果不用Memo，用什么才好？