【問題】在TMemo上貼完文章，如何快速回到文章頂端？

[tim]

可以使用
SendMessage(Memo1.Handle, EM_LINESCROLL, 0, -Memo1.Lines.Count);

其中 EM_LINESCROLL 為對該 control 送出 linescroll 指令, -Memo1.Lines.Count 為往上捲 -Memo1.Lines.Count 行..

請參考
http://delphi.ktop.com.tw/TOPIC.ASP?TOPIC_ID=29114

另外可以使用 SCROLL BAR 的 MESSAGE 來進行. WM_VSCROLL

SendMessage(Memo1.Handle, WM_VSCROLL, SB_TOP, 0);

其中 wparam 可以使用的參數另外有:
SB_LINEUP
SB_LINEDOWN
SB_PAGEUP
SB_PAGEDOWN
SB_TOP
SB_BOTTOM
VK_NEXT