VPF::В продолжение темы JS ошибки в TWebBrowser

Sergey912

Дата 21.4.2008, 12:43 (ссылка)

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

Загрузка ...

Бывалый

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

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

Нашел в этой http://forum.vingrad.ru/topic-113577.html#st_15_view_0 теме решение своей проблемы.
Вот только при зарузке кода из темы в мое приложение:

Код


procedure TMainForm.TrapWM_Activate(var Msg: TWMActivate);
var
  L:Integer;
  wnd:Integer;
  WinClass,WinCaption:string;
  ShouldShow:boolean;
  ShouldClose:boolean;
begin
if Msg.Active = 0 then
  begin
  wnd := Msg.ActiveWindow;
  SetLength(WinClass,80);
  SetLength(WinClass,GetClassName(wnd, PChar(WinClass), Length(WinClass)));
  L:=GetWindowTextLength(wnd);
  SetLength(WinCaption,L+1);
  GetWindowText(Wnd,PChar(WinCaption),L+1);
  SetLength(WinCaption,L);
  ShouldShow:=(WinCaption<>'');
  if ShouldShow then
    begin
    ShouldClose:=(WinCaption='Îøèáêà ñöåíàðèÿ Internet Explorer') and (WinClass='Internet Explorer_TridentDlgFrame');
    ShouldClose:=ShouldClose or ((WinCaption='Internet Explorer Script Error') and (WinClass='Internet Explorer_TridentDlgFrame'));
    ShouldClose:=ShouldClose or ((WinCaption='Internet Explorer') and (WinClass='#32770'));
    if ShouldClose then SendMessage(wnd, WM_CLOSE, 0, 0);
    end;//if should show
  end;//if loose focus
end;//TrapWM_Activate
procedure TMainForm.WMActivate(var Msg: TWMActivate);
begin
TrapWM_Activate(Msg);
inherited;
end;

Получаю море ошибок, для меня 21 строка совсем непонятна, никогда такого в Delphi не видел smile

[Error] Unit1.pas(21): ')' expected but identifier 'e' found
[Error] Unit1.pas(21): Undeclared identifier: 'i'
[Error] Unit1.pas(21): Operator not applicable to this operand type
[Error] Unit1.pas(23): Missing operator or semicolon
[Error] Unit1.pas(26): '.' expected but ';' found

Это сообщение отредактировал(а) Sergey912 - 21.4.2008, 12:46

December

Дата 22.4.2008, 17:53 (ссылка)

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

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

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

21 строка - поменяй псевдокириллицу на какую-то реальнуб строку, кажется, это "Ошибка сценария"

--------------------

Для друзей с винграда - скидки на разработку сайтов

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