Показать сообщение отдельно
  #2  
Старый 13.10.2013, 02:55
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

А где же ваш код чтобы править? Да ещё похоже не в тот раздел пост, под тырнет здесь есть отдельная ветка. Ну да ладно, каков вопрос, таков ответ:

Нажать кнопку можно так (при условии что она одна, если больше, то это совсем другая песня)
Код:
...
WebBrowser1.OleObject.Document.forms.item(0).elements.item(0).click;
...
Вставить текст в поле, что-то типа такого
Код:
var 
item: variant; 
...

if (Webbrowser1.ReadyState and READYSTATE_INTERACTIVE) = 3 then 
begin 
item:= WebBrowser1.OleObject.Document.all.tags('Edit');
if (item.type = 'text') or 
   (item.type = 'password') or 
   (item.tagname = 'TEXTAREA') then item.Value:= Edit1.Text;
end; 
на работоспособность эту компиляцию из DRKB не проверял, может где и ошибка
Ответить с цитированием