---|Ветка была без названия|---

← →
Дмитрий К.К. © (2003-03-30 18:51) [0]

Здравствуйте!
Необходимо реализовать вызов окна "Совет дня при старте программы".
Усё вроде бы просто, но проблема заключается в том, что на заднем плане этого окна ("Совета дня") должна быть видна главная форма. Ни OnCreate, ни OnShow, ни OnActivate главной формы для этой задачи не подходят.
Не подскажете, как же решить задачку?

← →
ZEE © (2003-03-30 20:24) [1]

А если просто visible этой формы еще во время дизайна установить в true. Думаю поможет.

← →
MAN-IN-RED © (2003-03-30 20:27) [2]

program Project1;

uses
Forms,
Unit1 in "Unit1.pas" {Form1},
Unit2 in "Unit2.pas" {Form2};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Form2.Show;
Application.Run;
end.

А что мешает в OnShow...?

← →
Александр Спелицин © (2003-03-30 21:15) [3]

Пусть Ваша главная форма при своем создании посылает себе PostMessage с кодом Вашего пользовательского сообщения. А в обработчике Вы уже будете создавать и отображать окно с советами...

← →
Morfein © (2003-03-30 21:48) [4]

>> Ни OnCreate, ни OnShow, ни OnActivate главной формы для этой задачи не подходят.

А почему?

← →
Дмитрий К.К. © (2003-03-31 10:49) [5]

> MAN-IN-RED © (30.03.03 20:27)

Простите, Вы свой собственный код проверяли?
Вторая форма мелькает и усё.

> Morfein © (30.03.03 21:48)
> >> Ни OnCreate, ни OnShow, ни OnActivate главной формы для
> этой задачи не подходят.
>
> А почему?

А потому что (повторяю задачку): на заднем плане этого окна ("Совета дня") должна быть видна главная форма.

> ZEE © (30.03.03 20:24)
> А если просто visible этой формы еще во время дизайна установить
> в true. Думаю поможет.

Не помогло.

> Александр Спелицин © (30.03.03 21:15)

Спасибо, постараюсь Вашим способом.

← →
Num Lock (2003-03-31 11:08) [6]

program Project1;

uses
Forms,
Unit1 in "Unit1.pas" {Form1},
Unit2 in "Unit2.pas" {Form2};

{$R *.RES}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
form1.Show;
form2.ShowModal;
Application.Run;
end.

> Александр Спелицин © (30.03.03 21:15)

Именно так и надо сделать. Это самый правильный путь, могу сказать точно (правильеный в смысле результата).

> Александр Спелицин © (30.03.03 21:15)
> Пусть Ваша главная форма при своем создании посылает себе
> PostMessage с кодом Вашего пользовательского сообщения.
> А в обработчике Вы уже будете создавать и отображать окно
> с советами...

Огромное спасибо, Ваш совет очень помог.

---|Ветка была без названия|--- Найти похожие ветки