Mega Code Archive

 

Categories / Delphi / LAN Web TCP

 

How to Copy, Delete, Cut in the TWebbrowser

Title: How to Copy, Delete, Cut in the TWebbrowser uses ActiveX; // 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 procedure TForm1.Button8Click(Sender: TObject); begin try WebBrowser1.ExecWB(OLECMDID_CUT, OLECMDEXECOPT_PROMPTUSER); except end; end; // Delete the selected text procedure TForm1.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