Ошибка при сворачивании в трей

[Ericnex]

Есть следующая часть кода:

procedure TForm1.FormActivate(Sender: TObject);
begin
  DM.TrayIcon1.Visible := true;
  DM.TrayIcon1.Hint := 'Журнал заявок';
  // Убираем с панели задач
  ShowWindow(Handle, SW_HIDE); // Скрываем программу
  ShowWindow(Application.Handle, SW_HIDE); // Скрываем кнопку с TaskBar'а
  SetWindowLong(Application.Handle, GWL_EXSTYLE,
    GetWindowLong(Application.Handle, GWL_EXSTYLE) or (not WS_EX_APPWINDOW));
end;

При компиляции возникает ошибка access violation(см. на рис.).

Возможно ли переполнение памяти в данной процедуре?

[evg_m]

Возможно ли переполнение памяти в данной процедуре?

нет. память не выделяется.

При компиляции возникает ошибка access violation(см. на рис.).

такая ошибка бывает при запуске (выполнении) программы.

У вас есть обращение к несуществующему объекту.
или, если быть более точным, использование неинициализированной( =nil) переменной объектного типа (наследника TObject).
вопрос-подсказка: В каком порядке создаются формы и дата модули?

[Ericnex]

Примерно вот так это выглядит:

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.Title := 'Журнал заявок';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TDM, DM);
  Application.Run;

end.

Здесь что-то нужно поменять?

[Serge_Bliznykov]

А Вы как думаете?!

procedure TForm1.FormActivate(Sender: TObject);
begin
  DM.TrayIcon1.Visible := true;
...

Вы в методе Form1 обращаетесь к форме DM

p.s. если не ошибаюсь, то автосоздание форм (auto create) меняется в настройках проекта.

[evg_m]

  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TDM, DM);

надо поменять местами.

Form1.Activate выполняется еще ДО создания объекта TDM и инициализации переменной DM, отсюда и AV.

[northener]

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

Form1.Activate выполняется еще ДО создания объекта TDM и инициализации переменной DM, отсюда и AV.

Не согласен с этим утверждением.

[Ericnex]

Местами поменял. К сожалению, ошибка не исчезла.

[Shouldercannon]

Задействуйте BreakPoint и пошагово смотрите где вылетает ошибка.

[Ericnex]

Точка остановки выявило проблемное место здесь

DM.TrayIcon1.Visible := true;

[Аватар]

А зачем TrayIcon в датамодуле? На главную форму его