12

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

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はこの方法で実装されていないようです。

もう1つの問題は、上記の方法でも右クリックして「コピー」を選択できないことです。

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

4

1 に答える 1

3

ユーザーが 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 に追加する

于 2011-06-27T02:21:18.140 に答える