Скопировать, удалить, вставить в TWebBrowser |
Previous Top Next |
Code: |
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 |
©Drkb::03470
Взято с http://delphiworld.narod.ru