TartalomFriss hozzászólások
Új fórum témákAktív fórum témákFriss blogbejegyzésekGoogle hirdetések |
Nem Form startol
echy, 2007, december 14 - 15:22
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. »
|
KeresésBelépésIndex TechPC Fórum
Origo TechbázisSG.hu |
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.