Ошибка при созаднии формы

[Anfall]

Доброго времени суток всем.


Запускается программа:

procedure TForm1.FormCreate(Sender: TObject);
var
a:integer; 
begin
 form1.Show;
 for a:=0 to 100 do begin
    application.processmessages;
    //тут код по добалению итемов в ListView
 end
end;

Вот примерно такой код. Цикл на самом деле большой (вовсе не 100). Ошибка в том, что если свернуть программу во время выполнения цикла, а потом ее развернуть появляется:

Project Project1.exe raised exception class EAccessViolation with message...

Если нажать ок -- выполнение цикла продолжается.
Перепробовал все. Убрал весь лишний код из FormCreate, удалил всевозможные OnShow, вырубил все таймеры и т.д. - ошибка все равно присутствует!

Притом в программе есть практически дубликат этого же когда, но он выполняется не в Create формы - и там таких ошибок нет.

Думаю, тут какая-то специфичная особенность FormCreate...

В чем может быть проблема?

Заранее благодарен!

[chertovich]

Скинь пожалуйсто весь исходник, но без EXE

[Anfall]

chertovich,
Исходник скинуть к сожалению не могу, программа довольно большая(
Проверял все что можно, комментил почти весь код. Все события на форме вырубил. Все равно эта фигня(

[NoName_emaNoN]

Была похожая ситуация. Попробуй код из FormCreate перенести в FormShow, а ещё лучше в FormActivate.

[ZaRDaK]

Дык, если человек помещает код в OnCreate, значит этот код должен быть там.

[NoName_emaNoN]

Не обязательно. У меня код был в OnCreate формы, не работал, я его поместил в OnActivate заработал, я его там и оставил. Может быть произвёл какие-то изменения в других процедурах, но если он там работает, то там ему и место

[chertovich]

Тогда хотябы весь код FormCreat-а

[Alter]

Вот это form1.Show; убрать из кода пробывали?
Зачем в классе формы TForm1 писать вызов свойств этой же формы через это form1.свойство;!? это лишнее, достаточно написать свойство;

[Anfall]

NoName_emaNoN,
Спасибо. Пробовал и в ОнШоу и в ОнАктивэйт - также проблема...

chertovich, я пробовал комменить все кроме этого цикла в онкреэйт - все равно та же проблема. + убирал все их ОнШоу и т.д.

Alter,
Без Show - все грузится норм, но естественно без "показа" главной формы.

Самое интересная, что в программе есть почти индеетчиный кусок кода, который НЕ в Онкрейт выполняется без ошибки при сворачивании.

PS: Ссори за кросспостинг, не туда ткнул.
-------------
Как оказалось проблема в модуле CoolTrayIcon. А именно:

if Msg.wParam = SC_RESTORE then
      begin
       if Application.MainForm.WindowState = wsMinimized then
          Application.MainForm.WindowState := wsNormal;
        Application.MainForm.Visible := True;  
      end;

Правда почему конфликт возник так и не понял.

[NoName_emaNoN]

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