-
Xe10. Форма. Компонент IE (ну в url пусть ya.ru). Кроме IE на форме кнопка (дефолт, фокус на ней).
Если маусом кликнуть на комп. IE, а потом нажать ctrl+f - получаем поиск IE (полный функционал) и тд. по пр. кл. (все ост.)
Если окно не в фокусе - хрен.
Вопрос.
Как кнопкой вызывать поиск в IE (комп.) без фокуса комп.. Самое простое - передать комб.клавиш? не работает.
еще вопрос. есть еще кнопа с ф. поиска "текст". как при ее нажатии - найти в IE комп. то, что она хочет.
гуру, подскажите как быть.
-
Как кнопкой вызывать поиск в IE (комп.) без фокуса комп..
wb1: TWebBrowser; PostMessage( wb1.Handle, CM_UIACTIVATE, 0, 0);
должно актировать, т.е. = Если маусом кликнуть на комп. IE
------------------------------ >>найти в IE комп. получить текст, делать все что хочешь
var document: IHTMLDocument2;
procedure WaitFullLoadMS(ms: Integer); var k: Integer; begin k := 0; while k < ms do begin Application.ProcessMessages; Sleep(1); k := k + 1; end; end; begin WB1.Navigate('ya.ru'); WaitFullLoadMS(3000); // ожидание окончание загрузки не так делается - тут для примера document := WB1.Document as IHTMLDocument2; if Assigned(document) then begin ShowMessage( document.body.innerText ); // document.body.innerHtml end; end;
|