1

もちろん、コーディング中に別の問題を抱えている皆さんにもう一度敬意を表します。

次のスニペットを書きました。

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 のメソッドにアクセスするにはどうすればよいかということです。(プログラムは「undeclared undentifier MsgBox」が原因でコンパイルできません

注: 質問が明確でない場合は、質問を編集してください。注 2: TChatForm.MsgBox / ChatForm.MsgBox も使用しようとしましたが、それでも失敗しました..

4

1 に答える 1

4

パラメータとして 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;
于 2012-12-27T17:41:18.173 に答える