Registriert seit: 31. Aug 2005
1.622 Beiträge
FreePascal / Lazarus
|
Re: Loginform soll geschlossen werden bevor MainForm erschei
25. Sep 2006, 14:21
Ich würde das eher so machen:
Delphi-Quellcode:
program Project1;
uses
Forms,
Controls,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas';
{$R *.res}
var login:TForm2;
begin
Application.Initialize;
login := TForm2.Create(nil);
if login.ShowModal = mrCancel then
begin
Application.Terminate;
end
else
begin
Application.CreateForm(TForm1,Form1);
Application.Run;
end;
end.
An dieser Stelle verweise ich dich auch mal auf den Sourcecode von meinem Spiel: http://crashpoint.cvs.sourceforge.ne...ew=markup#l_88
[Edit]Kleiner Fehler[/Edit]
[Edit2]Fehler im URL Tag[/Edit2]
[Edit3]Noch eine kleine Verbesserung[/Edit3]
Andreas "Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
|