delphi中的自動滾動備忘錄

Question

delphi是否包含允許從db中加載自動滾動文本的組件，就像新聞站點一樣？

TT的一個德爾福7應用程序，需要一個垂直滾動。

Answer 1

在RichEdit備忘錄中，這些滾動解決方案都不適合我。使用Delphi 2010 + w7。 但是這一次完美的作品：

之後每Lines.Add('...')此如下：

SendMessage(RichEditMemo.Handle, WM_VSCROLL, SB_LINEDOWN, 0); 

發現： http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_10120212.html

Answer 2

可能，爲您節省一些錢，你能適應這種滾動一個數據庫備註：

EchoMemo.Lines.Add('A Line of text or more'); 
EchoMemo.SelStart := EchoMemo.GetTextLen; 
EchoMemo.SelLength := 0; 
EchoMemo.ScrollBy(0, EchoMemo.Lines.Count); 
EchoMemo.Refresh; 

我使用的日誌顯示。

Answer 3

對於這樣一個簡單的任務，你不需要購買商業組件！所有你需要做的就是發送EM_LINESCROLL消息到記錄控制，使其滾動到最後一行：

procedure ScrollToLastLine(Memo: TMemo); 
begin 
    SendMessage(Memo.Handle, EM_LINESCROLL, 0,Memo.Lines.Count); 
end; 

如果你的備忘錄是隻讀的用戶和由應用程序自動更新，你可以在OnChange事件處理程序中調用上述過程，以便每當備忘錄中的文本發生更改時，都會自動向下滾動到最後一行。

Answer 4

您也可以使用Memo.GoToTextEnd;需要的時候，例如onchange事件裏面。不是一個適當的自動滾動效果，但可以在類似情況下有用。