Сворачивание формы.

[mutabor]

ну так мне прятать не надо
Тебе первую появляющуюся форму не надо делать главной, чтобы ты мог ее закрыть, а то так и будет на панели задач сидеть.
Вот почитай Форма - пароль.txt код не мой, но там все просто, думаю разберешся.

[Diogo]

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

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

Не сильно подходит, т.к. выбор профиля может происходить много раз без выхода из программы, т.е. переходы между TForm1 и frmMain может происходить много раз.

[Баламут]

На мой взгляд все куда проще.

program Proga;

uses
  Forms,
  Controls, и т.д.
  

{$R *.res}

begin
  Application.Initialize;
  Application.Title := 'Заголовок';
  Application.CreateForm(TDataModule1, DataModule1);
  Application.CreateForm(TfrmLogon, frmLogon);
  if frmLogon.ShowModal = mrCancel
  then
  begin
  frmLogon.Free;
  Exit;
  end
  else frmLogon.Free;
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end.

Здесь первым создается модуль данных. Ибо в нем находятся переменные, необходимые приложению после логона, например. После логона frmLogon уничтожается и главным становится frmMain.

[Diogo]

Сообщение от Баламут

На мой взгляд все куда проще.
Здесь первым создается модуль данных. Ибо в нем находятся переменные, необходимые приложению после логона, например. После логона frmLogon уничтожается и главным становится frmMain.

Потом после выхода с frmMain снова создавать Form1?

Смысл в том, что программа при старте просит пользователя выбрать требуемый профиль и после стартует основная форма на которой производятся определнные действия.. По окончанию работы пользователь закрывает форму, выбирает другой профиль (специфика такая ) и опять начинает делать определенные телодвижения Т.ч. уничтожение какой нибудь формы не допускается. И сворачивание формы frmMain довольно больной вопрос. Вариант Квэнди интересен, но блин у меня 2 окна в панели задач получается, но сворачивается красиво и честно ))))

[Квэнди]

Неправильно вызываешь первое окно.
Вызывай его в activate главной формы и в зависимости от результатов выполнения showmodal делай выводы о дальнейшей загрузке приложения

[Diogo]

Сообщение от Квэнди

Неправильно вызываешь первое окно.
Вызывай его в activate главной формы и в зависимости от результатов выполнения showmodal делай выводы о дальнейшей загрузке приложения

Ночь была бессоная, голова не соображает, к вечеру нужно все это сдать Можно в асю 15722742?

[Квэнди]

Что именно непонятно ? во время загрузки главной формы показываешь showmodal твое окошко с вводом каких-то параметров (пароля, там имя пользователя, да что угодно) и после того как закроется модальное окно управление передастся строчке следуюущей за showmodal

[Diogo]

Сообщение от Квэнди

Что именно непонятно ? во время загрузки главной формы показываешь showmodal твое окошко с вводом каких-то параметров (пароля, там имя пользователя, да что угодно) и после того как закроется модальное окно управление передастся строчке следуюущей за showmodal

Главная форма была TForm1 (в ней выбор профиля, подготовка данных для "основной" формы и т.д.). После вызывалась frmMain с которой пользователь работает. После завершения работы с frmMain, она закрывается и возвращаемся к окну TForm1, в которой пользователь может выбрать другой профиль и продолжить работу либо ее завершить. В такой связке невозможно реализовать нормальное сворачивание frmMain.

В предложенном тобой варианте делаем главную frmMain и перед ее вызовом сначала вызываем TForm1 и после ее отработки запускаем "главное" окно. Но мне нужен принцип работы описанный параграфом выше. Пробовал связку оставить как есть, но добавить в frmMain процедуру TfrmMain.CreateParams(var Params: TCreateParams) получается все работает, форма нормально сворачивается, но при запуске frmMain в панели задач появляется 2 одинаковых окна, хотя работает только 2-е, при клике на первое рекации никакой
Я же и говорю, что башка не варит или я что-то таки не догоняю

[Master-Skull]

Вот простой сёрс, работает так как ты сказал

[Diogo]

Сообщение от Master-Skull

Вот простой сёрс, работает так как ты сказал

Да норма, но у тебя с Form2 теперь такая же трабла как у меня... Но на это уже я думаю можно глаза закрыть. Спасибо..

Может еще какие варианты будут в решении такой мелочевой проблемы