Добрый день
есть код простейшего браузера
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
URL, Flags, TargetFrameName, PostData, Headers: Olevariant;
begin
URL := Edit1.Text;
Flags := 0;
TargetFrameName := 0;
Postdata := 0;
Headers := 0;
EmptyParam;
WebBrowser1.Navigate2(URL, Flags, TargetFrameName, PostData, Headers);
end;
initialization
// prevent floating point errors
Set8087CW($133F);
end.
программа позволяет загрузить и отобразить ХТМЛ-страницу
Вопрос:
Как организовать выделение и копирование содержимого отображенной в браузере ХТМЛ-страницы в буфер обмена по событию "загрузка закончена", то есть сделать как бы Ctrl+A и Ctrl+C
Код:
procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
????????????????????????
end;
Нет ли у кого похожего кода, чтоб на пустом месте не гадать?
Заранее спасибо