Mega Code Archive

 

Categories / Delphi / LAN Web TCP

 

Copy, Delete, Cut in the TWebbrowser

Title: Copy, Delete, Cut in the TWebbrowser? uses ActiveX; // Copy the selected text to the clipboard // Den markierten Text in die Zwischenablage kopieren procedure TForm1.Button7Click(Sender: TObject); begin try WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER); except end; end; // Cut the selected text // Den markierten Text ausschneiden procedure TForm1.Button8Click(Sender: TObject); begin try WebBrowser1.ExecWB(OLECMDID_CUT, OLECMDEXECOPT_PROMPTUSER); except end; end; // Delete the selected text // Den markierten Text l schen 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 // ab Internet Explorer 4