Координаты формы при запуске

[Iron Monk]

При

Form_ZZZ.Visible:=true;

сначала отработает Form_ZZZ.onActivate, а уж затем процедура InitVars. Но при этом у меня она уже центруется))).

[exyl]

Ты видимо не понимаешь сам механизм визуальных форм )
Обьяснять наверное не стану, просто еще раз намекну на совет Аватара.

Может быть и не понимаю. Но после InitVars идет только Application.Run
Ты же не хочешь меня убедить, что при run происходит центровка и наступают события OnCreate и OnShow?

Iron Monk, дело не в центровке, а в значениях, которые не хотят заносится в структуру. При этом проверил в созданном с нуля проекте - все заносится. Запускал отладку по шагам - все отрабатывает, но координаты формы все равно по нулям вплоть до Application.Run. В общем понятно, что проект спроектирован неверно, но мне он достался от другого программиста вместе с его увольнением. Рефакторинг небольшой я уже сделал, но копать глубоко нет времени, так что я сразу после создания темы написал простейшую функцию, смысл которой сводится к операции:

Form_ZZZ.Left:=(ScrRect.Width-Wnd.Width) div 2;

, где ScrRect.Width - это ширина экрана пользователя, а Wnd.Width - ширина окна приложения. Для высоты тоже самое.

[Iron Monk]

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

Может быть и не понимаю. Но после InitVars идет только Application.Run
Ты же не хочешь меня убедить, что при run происходит центровка и наступают события OnCreate и OnShow?

Посмотри кино, если самому лень разбираться:

[Stilet]

Ты же не хочешь меня убедить, что при run происходит центровка и наступают события OnCreate и OnShow?

Неа. Зачем убеждать того, кому уже все понятно без слов.

[exyl]

Сообщение от Iron Monk

Посмотри кино, если самому лень разбираться:

Мне не лень. Я пытаюсь докопаться до истины, потому что не люблю костыли, которые могут превратиться в грабли.
Выше я уже отписался, что если создать новый проект, то все заносится. Где косяк в проекте, я найти не могу. Тот человек, от кого мне это досталось, очень враждебно ко мне настроен и не собирается мне что-либо рассказывать. Код местами труднопонимаем, без комментариев (в хорошем коде они и не нужны, кстати, но это совсем не тот случай). Документации нет. Некоторые глобальные переменные имеют названия типа X1, gh9 и т.п. Человек это делал очень лениво и местами для одних и тех же целей используются глобальные переменные с разными названиями. Но уволен он был даже не за корявый код с костылями, сотворенный в рамках его специфического понимания парадигм ООП, даже когда это шло вразрез со здравым смыслом (хотя как по мне, так за одно это можно), а за систематическое несоблюдение временных рамок при ранее составленном в его присутствии и оговоренном заранее плане.

И еще, я не запускаю незнакомые приложения от незнакомых дяденек с форумов. Если сможешь дать код или кратко объяснить - было бы замечательно.

Неа. Зачем убеждать того, кому уже все понятно без слов.

Ну тут двояко можно понять в свете того, что я написал:

проект спроектирован неверно

.
Или действительно в Run что-то есть того, что я не увидел сразу? Код смотрел:

procedure TApplication.Run;
begin
  FRunning := True;
  try
    AddExitProc(DoneApplication);
    if FMainForm <> nil then
    begin
      case CmdShow of
        SW_SHOWMINNOACTIVE: FMainForm.FWindowState := wsMinimized;
        SW_SHOWMAXIMIZED: MainForm.WindowState := wsMaximized;
      end;
      if FShowMainForm then
        if (FMainForm.FWindowState = wsMinimized) or (InitialMainFormState = wsMinimized) then
        begin
          Minimize;
          if (InitialMainFormState = wsMinimized) then
            FMainForm.Show;
        end else
          FMainForm.Visible := True;
      repeat
        try
          HandleMessage;
        except
          HandleException(Self);
        end;
      until Terminated;
    end;
  finally
    FRunning := False;
  end;
end;

Придраться не к чему, объяснить откуда после него появляются Left и Top не могу.

[Stilet]

не люблю костыли, которые могут превратиться в грабли.

Не очень понимаю какие костыли ты ожидаешь от координат формы...

[exyl]

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

Не очень понимаю какие костыли ты ожидаешь от координат формы...

Сверху отредактировал сообщение немного, глянь.

По поводу граблей. Есть переопределенная процедура:

procedure TForm_ZZZ.WMMOUSEWHEEL(var Msg: TMessage);

В ней, сразу после инхерайтед идет строка:

if WindowFromPoint(Mouse.CursorPos)<>ScrollBox_appZZZ.Handle then Exit;

Так прикол в том, что скролл не работает на скролл боксе в верхнем левом углу экрана, размером точно со всю форму Form_ZZZ при старте. При этом нет контролов, которые бы загораживали доступ к скролл боксу (в скролл боксе только имэйдж, но он не ТВинКонтрол, чтоб быть окном в понимании этой процедуры). Ты это объяснить смогешь? Я пока нет. У меня пока даже догадки нет, как это можно пофиксить.

[Stilet]

объяснить откуда после него появляются Left и Top не могу.

И не сможешь, пока генофонд Делфи не перероешь на предмет взаимодействия этих свойств.

Ты это объяснить смогешь?

Не. Не смогу. Я же не видел всего проекта. Могу только гадать.
Допустим что из TForm_ZZZ.WMMOUSEWHEEL не возвращается результат, поэтому сообщение до скролла не доходит.
Честно признаюсь не понимаю зачем этот обработчик вообще нужно было мутить. Автор явно с башней не дружит.
Эх... У TMessage кажись есть поле Result. Попробуй оперировать им. Я правда не помню как именно, почитай в хелпе. Не исключено что именно невозврат значения все портит.

[Пепел Феникса]

Application.Run->HandleMessage и делает всю магию.

в ваш обработчик заходит при скролинге на скролбоксе?

[exyl]

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

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

И не приведи Бог... Там 21 модуль и в некоторых более 30тыс строк. А какая там каша из переменных... Местами смотришь и думаешь, как оно вообще может стабильно работать? А уж что-то менять, то только с бэкапом - иначе черт его знает, что там откажется работать при следующем запуске после компиляции.

Честно признаюсь не понимаю зачем этот обработчик вообще нужно было мутить.

Капитанэ намекает, что для отлова движения колесика мыши над контролом. Буду благодарен, если подскажешь более правильный способ.

в ваш обработчик заходит при скролинге на скролбоксе?

Благодарю за уважительное обращение, но давай на "ты", мне подчиненных на работе хватает, которые выкают, а разница в возрасте даже если и в два раза, то я тут как неофициальное лицо, так что буду наравне со студентами, тем более знаний по делфи у меня не так много, как щас требуется.
Ответ на вопрос: нет, не заходит в той области, что я указал.