Access Violation при работе с TWebBrowser

[Shouldercannon]

Есть проект

program Project1;

uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.ShowMainForm := False; // Нужно обязательно
  Application.Title := 'Project';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

unit Unit1;
...
type
  TForm1 = class(TForm)
...
    procedure GetNews;
...
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  GetNews;
end;
// При закрытии формы (выход из программы) TWebBrowser начинает шалить
// При скрытой форме, если успеть до полной загрузки, то ошибки нет. После полной загрузки есть
// Если форма отображается, то в любом случае нет ошибки
procedure TForm1.GetNews;
var
  Flags: OleVariant;
begin
  Flags := 4; // Не загружать страницу из кэша
  WebBrowser1.Navigate('http://localhost/lanm/news.html', Flags);
//  WebBrowser1.Navigate('http://localhost/lanm/news.html'); // Тоже самое
end;

procedure TForm1.TrayIcon1Click(Sender: TObject);
begin
  Self.Show;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
  Self.Close;
end;

Delphi указывает сюда

function TCustomForm.IsFormSizeStored: Boolean;
begin
  Result := AutoScroll or (HorzScrollBar.Range <> 0) or (VertScrollBar.Range <> 0); // Здесь остановка
end;

[Аватар]

А из OnShow формы пробовал вызвать GetNews? В OnCreate Handle формы еще нет, может поэтому

[Shouldercannon]

Сообщение от Аватар

А из OnShow формы пробовал вызвать GetNews? В OnCreate Handle формы еще нет, может поэтому

Помогло, но если вызвать GetNews через таймер (5 сек), то такая же беда. Итог одинаков, если что-то грузится в TWebBrowser на форме, которая скрыта, то при выходе получим сию ошибку

Пока такой вариант решения

procedure TForm1.GetNews;
var
  Flags: OleVariant;
begin
  if Self.Showing then
  begin
    Flags := 4; // Не загружать страницу из кэша
    WebBrowser1.Navigate('http://localhost/lanm/news.html', Flags);
  end;
end;

[Человек_Борща]

В OnCreate лучше не пытаться работать с визуальными компонентами, их ещё не существует. От сюда и баги. Переместите вызов из Create в Show

[Аватар]

Что значит не существуют? Все объекты создаются в конструкторе формы и только потом OnCtreate вызывается. Другое дело Handle формы. Любое обращение к нему в тот момент создает его, но возможны при этом не предсказуемые последствия

[Shouldercannon]

Если Form1 сделать второй в проекте (добавить новую форму, а эту переименовать в Form2), то при таких же условиях испытания ошибок нет.

[Shouldercannon]

В Delphi 7 такого не наблюдается. Опять разрабы накрутили косяков

[northener]

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

В Delphi 7 такого не наблюдается. Опять разрабы накрутили косяков

Какого такого? ТС не представлял свой проект на форум. А что ты там своё надумал к топику относится лишь отчасти.

[Shouldercannon]

Не вопрос

[northener]

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

Не вопрос

Извини. Не заметил, что ты и есть ТС.