Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

MainForm [D7, WinXP]


Gear ©   (2004-12-06 13:31:00) 

Добрый день!
Следующая задача. Необходимо при запуске программы, чтобы создавалось окошко MainForm (Form6)и после несложных манипуляций оно уничтожалось и создавалось новое другое окно (Form1) и ему передавался статус MainForm.
Пока я выкручивался так:

 Application.Initialize;
 Application.ShowMainForm:=False;
 Application.CreateForm(TForm1, Form1);
 Application.CreateForm(TForm6, Form6);

Но это немного не то что я хочу. Какие мысли у кого есть как это сделать?


Gear   (2004-12-06 15:23:00) [1]

Фенкс!


Александр Иванов   (2004-12-06 13:36:00) [2]

program Project1;

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

{$R *.res}
var Form2:TForm2;
begin
 Application.Initialize;
 Form2:=TForm2.Create(nil);
 Form2.ShowModal;
 Form2.Free;
 Application.CreateForm(TForm1, Form1);
 Application.Run;
end.


Наверх

Титульная страница Поиск, карта сайта Написать письмо