Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 01.10.2018, 09:45   #1
andrejjka
Пользователь
 
Регистрация: 26.12.2010
Сообщений: 13
Репутация: 10
Лампочка Chromium динамическое создание

Всем здравствуйте.
Проблема в следующем. На форме лежит PageControl. На первой вкладке лежит Chromium1. В основном потоке программы вызываю создание Chromium на второй вкладке, когда срабатывает Beforepopup пытаюсь в него передать ссылку. Процедура создания выполняется, но при передачи ему ссылки программа вылетает, если вторая вкладка при этом не активна (с активной вкладной все работает). В чем проблема?

Код:

  public
    FCurrentURL,temp : ustring;

{$R *.dfm}

var
  PopupChromium:tchromium;

...

procedure TForm1.CreateChromium;
var browser:tchromium;
begin

  Addlog('Form1.CreateChromium - Начинаем создавать браузер');
  browser:=tchromium.Create(self);
  browser.Parent:=Form1.TabSheet4;
  browser.Align:=alclient;
  browser.tag:=10;
  browser.OnClose:=ChromiumClose;
  browser.OnLoadEnd:=ChromiumLoadEnd;
  browser.OnJsdialog:=ChromiumJsdialog;
  PopupChromium:=browser;
  Addlog('Form1.CreateChromium - Браузер создан');

end;


procedure TForm1.CheckNewTask;
begin

      FCurrentURL:='www*';
      form1.CreateChromium;
end;

procedure TForm1.Chromium1BeforePopup(Sender: TObject;
  const browser: ICefBrowser; const frame: ICefFrame; const targetUrl,
  targetFrameName: ustring; targetDisposition: TCefWindowOpenDisposition;
  userGesture: Boolean; var popupFeatures: TCefPopupFeatures;
  var windowInfo: TCefWindowInfo; var client: ICefClient;
  var settings: TCefBrowserSettings; var noJavascriptAccess: Boolean;
  out Result: Boolean);
begin

   result:=true;
    if (sender as tchromium).Name = 'Chromium1' then
      begin
        addlog('Ссылка отправлена в PopupChromium: '+FCurrentURL);

        PopupChromium.Load(FCurrentURL);
      end;
end;

andrejjka вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
динамическое создание Stringgrid SPD Общие вопросы Delphi 1 08.02.2012 15:45
Динамическое создание romanzi Общие вопросы Delphi 1 24.08.2011 12:20
Динамическое создание TabSheet Crystallon Общие вопросы Delphi 2 25.05.2011 14:57
динамическое создание компонентов DOLBY Компоненты Delphi 10 17.10.2010 14:03
Динамическое создание TShape tocsik Общие вопросы Delphi 2 09.02.2010 18:20


01:41.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru