|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#3
05.11.2013, 09:12
|
|||
|
|||
попробовал использовать BeforeNavigate2 и сразу полезли исключения на код ( ИДЕ = ХЕ3)
E2171 Variable 'I' inaccessible here due to optimization E2171 Variable 'Src' inaccessible here due to optimization E2171 Variable 'Temp' inaccessible here due to optimization (недоступные здесь за счет оптимизации) - это в модуле ComObj procedure GetIDsOfNames сам код Код:
procedure TMain.Wbbr_SMBeforeNavigate2(ASender: TObject; const pDisp: IDispatch;
const URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
var Cancel: WordBool);
var
I,J:integer;
begin (*действия перед перезагрузкой страницы*)
if Wbbr_SM.OleObject.Document.all.tags('FORM').Length = 0 then
begin
Exit;
end;
end; |
Древовидный вид