VPF::Oleobject, textarea - Форум программистов

SultanOFF

Дата 15.11.2009, 18:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 108
Регистрация: 23.3.2008

Репутация: нет
Всего: нет

Здравствуйте, хочу сделать чтобы по нажатию кнопки заполнялось содержимое textarea. делаю так:

Код


procedure TForm1.btn2Click(Sender: TObject);
var
  ovElements: OleVariant;
  i: Integer;
begin
ovElements := Wb1.OleObject.Document.forms.item(0).elements;
for i := 0 to (ovElements.Length - 1) do
if (ovElements.item(i).tagName = 'textarea') then
ovElements.item(i).value:='Marsel';
end;

но к сожалению ничего не заполняется :( В чем Моя ошибка? Помогите пожалуйста!

SultanOFF

Дата 17.11.2009, 17:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 108
Регистрация: 23.3.2008

Репутация: нет
Всего: нет

неужели никто не знает? :(

volvo877

Дата 17.11.2009, 18:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 1
Всего: 116

Код

procedure TForm1.btn2Click(Sender: TObject);
var
  ovElements: OleVariant;
  i: Integer;
begin
  ovElements := Wb1.OleObject.Document.forms.item(0).all.tags('textarea');
  for i := 0 to ovElements.Length - 1 do
  begin
    ovElements.item(i).setAttribute('value', 'Marsel');
  end;
end;

вообще-то... Только заполняться значением Marsel будут ВСЕ textarea. Если надо только одно - обращайся к определенному item-у, а не ко всем.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »