В событии Form1 onShow пишу Form2.ShowModal, но Form1 не показыва

← →
rolex (2005-08-09 11:49) [0]

Нужно чтобы при запуске проги появилась Form1, а поверх неё Form2. Но при запуске Form1 не появляется, а появляется сразу Form2, только после закрытия Form2 Form1 уже видно.
Пытался в событии Form1 OnShow написать Visible:=true, но бестолку.
Прошу помочь.

← →
msguns © (2005-08-09 12:07) [1]

Приведи код Project.pas

← →
Юрий Зотов © (2005-08-09 12:12) [2]

Событие OnShow формы возникает ПЕРЕД тем, как она становится видимой. В этот момент Вы показываете вторую форму модально - а при модальном показе форма сама обрабатывает все сообщения приложения. Вот поэтому первая форма и не может стать видимой, пока не закроется вторая.

Вывод - показывать вторую форму надо позже, уже ПОСЛЕ того, как первая стала видимой. Решение - перенести код показа второй формы из OnShow в OnActivate и (если надо) ввести флажок показа (как поле первой формы):

type
TForm1 = class(TForm)
procedure FormCreate(...);
procedure FormActivate(...);
...
private
FShowSecondForm: boolean;
...
end;

procedure TForm1.FormCreate(...);
begin
FShowSecondForm := True;
...
end;

procedure TForm1.FormActivate(...);
begin
if FShowSecondForm then
begin
FShowSecondForm := False;
... // Здесь Ваш код модального показа второй формы
end
end;

← →
rolex (2005-08-09 12:22) [3]

Я как раз с самого начала об этом подумывал.
Большое спасибо.

OnActivate - опасное место для выполнения каких-либо инициализирующих действий. Ваша модальная форма будет "вылазить" каждый раз, когда приложение будет активироваться (например, при переключених между приложениями из панели активных задач). Поэтому надо испрользовать либо флажок (например Tag формы 1), выставляемый сразу после инициализации и проверяемый в обработчике OnActivate, либо повесить вызов формы 2 на элемент управления (кнопку, пункт меню,..). ИМХО, второй способ предпочтительнее ибо не "навязывает" пользователю какие-либо действия сразу же после запуска приложения.

Из cправки:

The OnActivate event of the application (TApplication), not the form, occurs when Windows switches control from another application.

В событии Form1 onShow пишу Form2.ShowModal, но Form1 не показыва Найти похожие ветки