Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.02.2010, 19:52   #1
J-Max
Пользователь
 
Регистрация: 04.02.2010
Сообщений: 52
По умолчанию Программно кликнуть на textarea

Вот есть на сайте код:
Код:
<textarea name="message" id="vB_Editor_001_textarea" rows="10" cols="60" style="display:block; width:540px; height:250px" tabindex="1" dir="ltr"></textarea>
Я заметил что при ручной записи в это поле при клике мышкой на него там выбирается шрифт, его размер, и **, может еще че-то.
В это поле не записываются данные вот такой функцией:
Код:
function FillValue(WebBrowser : TWebBrowser; FieldName : String; Value : String): Boolean;
var
  i, j,k : Integer;
  FormItem : Variant;
begin
  Result := False;
  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
  begin
    ShowMessage('<FORM> is not here');
    Exit;
  end;
  for i := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
  begin
    FormItem := WebBrowser.OleObject.Document.forms.Item(i);
    for j := 0 to FormItem.Length - 1 do
    begin
      try
        if FormItem.Item(j).Name = FieldName then
        begin
          //Здесь, я так понял, перед вставкой пароля, надо кликнуть на этот объект.
          FormItem.Item(j).Value := Value;
          Result := True;
        end;
      except
        Exit;
      end;
    end;
  end;
end;
Вопросы:
1. Может ли не записываеться если шрифт не выбран и др. штука. Соответственно отсюда вытекает вопрос: как выбрать шрифт.
2. Эта функция ищет и вставляет во все поля всех форм найденных на странице?

Это ваше сокращение модераторы воспринимают вовсе не как "хто знает".
Почитайте внимательно правила, чтобы потом не писать забанившему вас модератору гневные матерные письма...

Последний раз редактировалось mihali4; 07.02.2010 в 19:59.
J-Max вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как в Twebbrowser кликнуть по ссылке? AquaKlaster Работа с сетью в Delphi 5 27.10.2010 17:52
Как кликнуть по баннеру eldar Работа с сетью в Delphi 1 22.09.2008 09:16
Кликнуть мышью Crivel Помощь студентам 9 07.08.2008 21:26
как с делфи кликнуть мышю? Iceman Помощь студентам 1 23.02.2008 11:59
Программно установить курсор мыши в браузере IE, и кликнуть в окне браузера Vladimir K. Общие вопросы Delphi 13 19.01.2008 17:07