看来直接按是不行了,只有通过按钮或者菜单来实现。
procedure TForm1.CutExecute(Sender: TObject);
var
i:OleVariant;
begin
DHTMLEdit1.ExecCommand(DECMD_CUT,OLECMDEXECOPT_DODEFAULT,i)
end;
procedure TForm1.CopyExecute(Sender: TObject);
var
i:OleVariant;
begin
DHTMLEdit1.ExecCommand(DECMD_COPY,OLECMDEXECOPT_DODEFAULT,i)
end;
procedure TForm1.PasetExecute(Sender: TObject);
var
i:OleVariant;
begin
DHTMLEdit1.ExecCommand(DECMD_PASTE,OLECMDEXECOPT_DODEFAULT,i)
end;