RichEdit1.SelText := チョメチョメ; を Undo するには?


Undo  2004-11-21 04:41:35  No: 11843  IP: [192.*.*.*]

お世話になります。
RichEdit に SelText := チョメチョメ; で文字を挿入すると、標準アクションの TEditUndo で取り消すことができません。TEditUndo を関連付けたメニュー、ツールボタンは無効状態になります。
どうすれば [元に戻す] ことができるか教えて頂けないでしょうか?

編集    削除
はて?  2004-11-21 18:59:55  No: 11844  IP: [192.*.*.*]

おかしいですね。
普通にイベントをオブジェクトインスペクタでセットして、そのハンドラを記述すれば、SelTextの文字挿入で TEditUndo に関連付けられたメニュー、ツールボタンは有効になりますけど?

試しに以下のようにしてみたらどうですか?

  RichEdit1.SelText := 'チョメチョメ';
  EditUndo1.Enabled := RichEdit1.CanUndo;

編集    削除
Undo  2004-11-22 00:35:59  No: 11845  IP: [192.*.*.*]

はて?さん、どうもです。

状況は変わりません。

編集    削除