Ich musste den Procedure vorne setzen dann funktioniert
:
Delphi-Quellcode:
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3};
{$R *.res}
procedure HideForms;
begin
Application.ShowMainForm := False;{form1}
Form3.Hide;
//form2 existiert nicht mehr
Application.Run;
end;
begin
if TForm2.Execute then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm3, Form3);
if Paramstr(1) = 'hidded' then HideForms // Fehler hier: Undefinierter Hideforms
else
Application.Run;
end
else
begin
Application.MessageBox('Passwort falsch', 'Noch einmal versuchen');
end;
end.