Закрытие динамически созданной вкладки

[exyl]

Сообщение от min@y™

Ну не копипасть ты, не глядя, ёмаё.
Посмотри внутрь модуля ufMain.pas и возьми оттуда только нужное. И вообще, прочитай код и пойми, как он работает, и почему.

Молодой человек, мне некогда разбирать Ваш код с приколами, чтобы убедится, что да, ошибка в моем есть. Я лучше уделю это время на совет Алара.

[min@y™]

Сообщение от exyl

Молодой человек, мне некогда разбирать Ваш код с приколами, чтобы убедится, что да, ошибка в моем есть. Я лучше уделю это время на совет Алара.

[exyl]

Ситуация прояснилась.
Поубирал вызовы процедуры создания вкладок из внешнего модуля, кнопку закрытия расположил на форме в дизайн-тайме, закрываю вкладку просто:

if PageControl_Browser.Visible and (PageControl_Browser.ActivePageIndex>0) then
    PageControl_Browser.Pages[PageControl_Browser.ActivePageIndex].Free;

Тут стоят проверки на:

• видимость всего пейджконтрола (т.к. может быть виден другой, с логом, его трогать нельзя)
• на номер вкладки (нельзя закрывать самую первую с индексом [0], она создана в дизайн-тайме и всегда присутствует)

Если на вкладке нет TWebBrowser'а, то и ошибок нет.
Если создать еще одну вкладку с браузером в ран-тайме и после ее закрытия кликнуть на ярлычке оставшейся (первой) вкладки, то вылетает ошибка доступа к памяти.
Если создавать несколько вкладок, и закрывать их, то ошибок иногда нет (закономерность понял не до конца).

Есть какие-то соображения, что это такое и как лечится?
И почему при удалении вкладки не наступает события OnChange пейджконтрола, а если его вызвать вручную (даже с пустым телом), то сразу получаю акцесс виолейшн?

[min@y™]

Сообщение от exyl

Я лучше уделю это время на совет Алара.

ну как, время было потрачено не зря, чувак?

[exyl]

Сообщение от min@y™

ну как, время было потрачено не зря, чувак?

Если ты о своем, то точно зря )
И я бы его потратил так же, ковыряя неизвестно зачем навороченный пример. Кроме того, нет веббраузера - нет ошибок, чувак (тут так принято обращаться?).

[min@y™]

Сообщение от exyl

Если ты о своем, то точно зря )
И я бы его потратил так же, ковыряя неизвестно зачем навороченный пример. Кроме того, нет веббраузера - нет ошибок, чувак (тут так принято обращаться?).

Да не надо так слюной брызгать. Достаточно было ответить "да" или "нет".

[exyl]

Проблема решена.
Я до сих пор не имею понятия, кто и зачем обращался к браузеру при освобождении вкладки, но проблемы исчезли, когда я сначала прописал освобождение браузера, а потом вкладки:

procedure TForm_Main.Action_BrowserCloseTabExecute(Sender: TObject);
begin
  if PageControl_Browser.Visible then  //только если виден педж контрол с браузерными вкладками
    if PageControl_Browser.ActivePageIndex>0 then  //первая вкладка не закрывается никогда
      begin
        TMyBrowserTabSheet(PageControl_Browser.Pages[PageControl_Browser.ActivePageIndex]).FBrowser.Free;  //вручную освобождаем браузер, который хранится в FBrowser типа TexBrowserTabSheet  = class(TTabSheet)
        PageControl_Browser.Pages[PageControl_Browser.ActivePageIndex].Free;  //освобождаем вкладку
        PageControl_BrowserChange(Sender);  //инициируем процедуру при смене вкладки
      end;
end;

[Alar]

Сообщение от min@y™

Shift+F11 нажми.

А нельзя форум не загружать exe файлами, и только исходники выкладывать, без шаманства.

И места много не занимает, и сразу все понятно что где как зачем. а пример работы можно как сейчас картинкой оставлять. т.е. картинка + код. без exe

а?

[min@y™]

Сообщение от Alar

А нельзя форум не загружать exe файлами, и только исходники выкладывать, без шаманства.

И места много не занимает, и сразу все понятно что где как зачем. а пример работы можно как сейчас картинкой оставлять. т.е. картинка + код. без exe

а?

Можно. Но это не имеет никакого смысла.
Это прекратится, когда ты добавишь соответствующий пункт в правила и начнёшь за это банить. А пока формально мой подход ничего не нарушает. Ведоносный код я не делаю.

[Alar]

1. пользователи не хотят качать экзешники
2. пользователи не знают как достать исходники

итог размещение экзешника бесмыслленно, если так. то какой смысл? бесполезный труд и самолюбование только, а не помощь форумчанам.

А народ обижается уходит.