Скопировать, удалить, вставить в TWebBrowser

Материал из DRKB


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


Source: http://delphiworld.narod.ru
ID: 03470