Nem Form startol

Sziasztok!

Azt szeretném elérni, hogy ne egy form induljon el az application indításakor, hanem pl egy unitból tudjam megjeleníteni a formokat saját kezűleg. Van erre valakinek ötlete?

Köszi.

Az alábbi dpr fájlban

Az alábbi dpr fájlban válszthatsz melyik form lesz a "főformod" persze más választási lehtőségeket is létre hozhatsz. Az aboutbox-ban a publikus deklarációnál kell egy ok:boolean; és egy elsoform:byte; tipusú változó, aminek értéket adsz amikor futatod az aboutbox-ot.
program formvalaszt;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},

{$R *.res}

begin
Application.Initialize;

aboutbox:=taboutbox.Create(application);
aboutbox.Button1.Visible:=true;
aboutbox.spinedit1.Visible:=true;
aboutbox.Show;

while not aboutbox.ok do
begin Application.ProcessMessages;
end;

if aboutbox.elsoform=1 then begin
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);

end;

if aboutbox.elsoform=2 then begin
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm1, Form1);

end;
aboutbox.Close;

Application.Run;
end.

ja aboutbox-ot használhatod később rendeltetés szerűen, csak a
spinedit és button láthatóságát állítsd false-ra , mert később nem lesz rá szükség.
A spinedit minimuma 1 maximuma ahány form-od van!
Üdv.: Totó

Köszönöm szépen az

Köszönöm szépen az ötletet.

Könyvajánló

Programozzunk Turbo Delphi Rendszerben