如何返回到最上边

Question

shift=[ssctrl]是表示ctrl被按下，你在onkeyup事件加入if (shift=[ssctrl]) then

Answer 1

Sendmessage函数发送WM_VSCROLL消息， wParam设定为SB_TOP

Answer 2

LRESULT SendMessage(    HWND hWnd, // handle of destination window
    UINT Msg, // message to send
    WPARAM wParam, // first message parameter  
    LPARAM lParam  // second message parameter
   );
发送WM_VSROLL 消息， WPARAM设为SB_TOP

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Perform(WM_VSCROLL,SB_TOP,0);
end;