usesActiveX; // Copy the selected text to the clipboard procedure
TForm1.Button7Click(Sender: TObject); begin
try
WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER); except
end
; end
;
// Cut the selected text procedureTForm1.Button8Click(Sender: TObject); begin
try
WebBrowser1.ExecWB(OLECMDID_CUT, OLECMDEXECOPT_PROMPTUSER); except
end
; end
;
// Delete the selected text procedureTForm1.Button9Click(Sender: TObject); begin
try
WebBrowser1.ExecWB(OLECMDID_DELETE, OLECMDEXECOPT_PROMPTUSER); except
end
; end
; initialization
OleInitialize(nil
); finalization
OleUninitialize; end
.
// as of Internet Explorer 4