bei mir sieht es so aus:
unit2 (benennung sieht bei mir natürlich besser aus)
Delphi-Quellcode:
TForm2 = class(TForm)
[...]
public
class function Execute(): Boolean;
end;
[...]
class function TForm2.Execute(): Boolean;
var
lForm: TForm2;
begin
lForm := TForm2.Create(nil);
try
result := lForm.ShowModal = mrOK;
finally
lForm.Free;
end;
end;
[...]
procedure TForm2.ButtonOKClick(Sender: TObject);
begin
if PasswortRichtig() then
ModalResult := mrOK;
end;
Projektdatei
Delphi-Quellcode:
[...]
Application.Initialize;
if TForm2.Execute() then
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
[...]