thtmlviewerオブジェクトからどのようにコピーして貼り付けますか？

Question

現時点では、次のハックがあります。

procedure TForm1.HTMLViewer1KeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
begin
    if (Key = Word('C')) and (Shift = [ssCtrl]) then
        HTMLViewer1.CopyToClipboard;
end;

htmlviewerからのコピーを有効にするための、より賢明/保守可能な方法はありますか？上記をしなければならないことが愚かに思えるので、私は設定できる財産があることを望んでいます。 Tcustomeditの子孫はデフォルトでコピー、貼り付け、選択をしていますが、何らかの理由でHTMLViewerはこのように実装されていないようです。

別の問題は、上記の方法が「コピー」の右クリックと選択を考慮していないことです。

編集：最後に、このチュートリアルに従って、上記のコードを適切なコンテキストメニューに置き換えることを選択しました。 http://delphi.about.com/od/tmemotrichedit/a/richedit-popup.htm

Answer 1

ユーザーがCTRL-Cを押すと何かができます（つまり、独自のソリューション＃1を使用してください）

procedure TForm1.HTMLViewer1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Key = Word('C')) and (Shift = [ssCtrl]) then
    HTMLViewer1.CopyToClipboard;
end;

または、ここで説明するようにポップアップメニューを実装できます（つまり、独自のソリューション＃2）

DelphiのTricheditに標準コンテキスト（ポップアップ）メニューを追加する