將插入符號保存在文本末尾的豐富編輯

Question

我正在使用TRichEdit組件編寫Delphi（2009）中的編輯器。編輯器只能追加，因爲插入符必須始終處於末尾，同時保持使用組件中其他位置的鼠標進行復制的能力。

它現在的工作方式是每當寫入內容時將插入符號移動到末尾，但是在單擊文本的其他部分時是否可以使插入符號不跟隨鼠標？

Answer 1

不，這是不可能的。當用戶鍵入內容時，必須將插入符號移動到最後。

Answer 2

否。插入符號必須移動以便用戶使用鼠標或鍵盤進行選擇。每次插入新文本時，都必須將插入符號移動到最後。您應該在每次插入時保留並恢復用戶的當前插入位置，例如：

procedure TForm.AppendText(const S: String); 
var 
    OldCharRange, NewCharRange: TCharRange; 
begin 
    SendMessage(RichEdit1.Handle, EM_EXGETSEL, 0, LParam(@OldCharRange)); 
    try 
    NewCharRange.cpMin := RichEdit1.GetTextLen; 
    NewCharRange.cpMax := NewCharRange.cpMin; 
    SendMessage(RichEdit1.Handle, EM_EXSETSEL, 0, LParam(@NewCharRange)); 
    RichEdit1.SelText := S; 
    finally 
    SendMessage(RichEdit1.Handle, EM_EXSETSEL, 0, LParam(@OldCharRange)); 
    end; 
end;