thtmlviewerオブジェクトからどのようにコピーして貼り付けますか?
-
28-10-2019 - |
質問
現時点では、次のハックがあります。
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
解決
ユーザーが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)
所属していません StackOverflow