进销存软件版1楼: 设置4个按钮为首页 上页 下页 末页如何控制memo切换到指定的页

2楼: 页的内容是不是不断变化的？
如果不是的话就比较简单了;
直接取前部分内容就行 如易友进销存软件

3楼: 请问如何写代码呀？？？

4楼: 没人知道吗？？

5楼: 20行为一页

6楼: 帮顶！

╭=========================================╮

80G海量源代码,控件，书籍全免费狂下不停！

http://www.source520.com

╰=========================================╯

进销存软件版7楼: procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.SetFocus ;
keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL, 0 ),0,0);
keybd_event(VK_HOME,MapVirtualKey(VK_HOME, 0 ),0,0);
keybd_event(VK_HOME,MapVirtualKey(VK_HOME, 0 ),KEYEVENTF_KEYUP,0);
keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL, 0 ),KEYEVENTF_KEYUP,0);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Memo1.SetFocus ;
keybd_event(VK_PRIOR,0,0,0);

keybd_event(VK_PRIOR,0,KEYEVENTF_KEYUP,0);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Memo1.SetFocus ;
keybd_event(VK_NEXT,0,0,0);
keybd_event(VK_NEXT,0,KEYEVENTF_KEYUP,0);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Memo1.SetFocus ;
keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL, 0 ),0,0);
keybd_event(VK_END,MapVirtualKey(VK_END, 0 ),0,0);
keybd_event(VK_END,MapVirtualKey(VK_END, 0 ),KEYEVENTF_KEYUP,0);
keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL, 0 ),KEYEVENTF_KEYUP,0);
end;

8楼: 其实如果只要实现首页 上页 下页 末页这4个功能的话，可以用
SendMessage(memo1.Handle, EM_SCROLL, SB_PAGEUP, 0);
SendMessage(memo1.Handle, EM_SCROLL, SB_PAGEDOWN, 0);
SendMessage(memo1.Handle, EM_SCROLL, SB_TOP, 0);
SendMessage(memo1.Handle, EM_SCROLL, SB_BOTTOM, 0);
想跳转到指定的某一页，那么可以先取得当前得页数，与要跳转的页数做比较，做多次跳转。