Comment copier et coller à partir d'un objet THtmlViewer?

Question

Pour le moment, j'ai le hack suivant:

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

Existe-t-il un moyen plus sensé / maintenable d'activer la copie à partir d'un visualiseur html?J'espère qu'il y a une propriété que je peux définir, ou quelque chose du genre, parce que devoir faire ce qui précède semble stupide.Les descendants de TCustomEdit ont le copiage, le collage et la sélection par défaut, mais htmlviewer pour une raison quelconque ne semble pas être implémenté de cette façon.

Un autre problème est que la méthode ci-dessus ne tient pas non plus compte du clic droit et de la sélection de "copier"

EDIT: J'ai finalement choisi de remplacer le code ci-dessus par un menu contextuel approprié, selon ce tutoriel: http://delphi.about.com/od/tmemotrichedit/a/richedit-popup.htm

Answer 1

Vous pouvez faire quelque chose lorsque l'utilisateur appuie sur Ctrl-C (c.-à-d. utiliser votre propre solution n ° 1)

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

ou vous pouvez implémenter un menu contextuel comme décrit ici (c'est-à-dire votre propre solution n ° 2)

Ajouter un menu contextuel standard (popup) à TRichEdit de Delphi