MainForm

← →
Gear (2004-12-06 13:31) [0]

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

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

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

← →
Александр Иванов © (2004-12-06 13:36) [1]

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.

← →
Gear (2004-12-06 15:23) [2]

Фенкс!

MainForm Найти похожие ветки