如何在delphi程序中調用TRichEdit方法

Question

當然，我再次向所有人致敬，編碼時遇到了另一個問題。

我寫了以下代碼：

procedure add_text(text : String);
begin
  MsgBox.SetFocus;
  MsgBox.SelStart := MsgBox.GetTextLen;
  MsgBox.Perform(EM_SCROLLCARET, 0, 0);
  MsgBox.SelText := time_stamp + ' ' + text + #13#10; //time_stamp is a function
end;

問題是，如何在程序中訪問那些MsgBox的方法？ （程序無法編譯，因為“未聲明的標識符MsgBox”

注意：如果問題不夠清楚，請編輯問題。 注2：還嘗試使用TChatForm.MsgBox / ChatForm.MsgBox但仍然不成功..

Answer 1

只需使用您的Richedit作為參數調用程序：

procedure add_text(MsgBox:TRichedit;const text : String);
begin
  MsgBox.SetFocus;
  MsgBox.SelStart := MsgBox.GetTextLen;
  MsgBox.Perform(EM_SCROLLCARET, 0, 0);
  MsgBox.SelText := time_stamp + ' ' + text + #13#10; //time_stamp is a function
end;