![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
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.