Скачать: CL | DM;

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]

Фенкс!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c