|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
30.12.2011, 02:38
|
|||
|
|||
Браузер на TChromium. Особенности работы
Добрый день и с Новым годом
Есть код с применением компонета TChromium. Браузер загружает страницу, после загрузки делает КОНТР+А и КОНТР+С Код:
procedure TForm1.Button1Click(Sender: TObject);
var
URL : string;
begin
URL := Edit1.Text;
Chromium1.Browser.MainFrame.LoadUrl(URL); //загрузка страницы
end;
procedure TForm1.Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser;
const frame: ICefFrame; httpStatusCode: Integer; out Result: Boolean); //по окончании загрузки страницы
begin
// вот тут не хватает кода для установки фокуса
frame.SelectAll; //выделить все
frame.Copy; //копировать выделенное в буфер
end;На сайтах без окон ввода данных (forums.kuban.ru) все работает нормально На сайтах типа YA.RU фокус автоматически устанвливается на окне ввода, соответсвенно ничего не выделяется и не копируется. В TWebBrowser эта задача решается следующим кодом Код:
if WebBrowser1.Document <> nil then (Webbrowser1.Document as IHTMLDocument2).ParentWindow.Focus; //вот тут фокус на все окно, проверено.работает 1. Где есть справочники с описанием методов TChromium? 2. кто знает способ (код) для установки фокуса на загруженную страницу Всем ответившим по существу вопросов спасибо |
Древовидный вид