Mega Code Archive

 

Categories / Delphi / LAN Web TCP

 

How to Paste, Undo, Redo and SelectAll in TWebBrowser

Title: How to Paste, Undo, Redo and SelectAll in TWebBrowser uses ActiveX; // Paste the text from the clipboard procedure TForm1.Button1Click(Sender: TObject); begin try WebBrowser1.ExecWB(OLECMDID_PASTE, OLECMDEXECOPT_PROMPTUSER); except end; end; // Undo procedure TForm1.Button2Click(Sender: TObject); begin try WebBrowser1.ExecWB(OLECMDID_UNDO, OLECMDEXECOPT_PROMPTUSER); except end; end; // Redo procedure TForm1.Button3Click(Sender: TObject); begin try WebBrowser1.ExecWB(OLECMDID_REDO, OLECMDEXECOPT_PROMPTUSER); except end; end; // Select all procedure TForm1.Button4Click(Sender: TObject); begin try WebBrowser1.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_PROMPTUSER); except end; end; initialization OleInitialize(nil); finalization OleUninitialize; end. // as of Internet Explorer 4