Hier Auszüge meines Codes, wie er jetzt ist (und Fehler verursacht). "Beta" ist der Name des Windows, was geöffnet werden soll und nichht klappt.
Code:
procedure TAlpha.FormCreate(Sender: TObject);
begin
...
Beta.Visible:=False;
Randomize;
SupportMe:=Random(1000);
end;
procedure TAlpha.TimerProgressTimer(Sender: TObject);
begin
...
if Beta.Visible=False then
begin
// if SupportMe=1000 then Beta.ShowModal;
Beta.ShowModal; // Zum Testen
end;
end;
Code:
program AMC2;
uses
Forms,
Box1 in 'Box1.pas' {Alpha},
Box2 in 'Box2.pas' {Beta};
{$R *.res}
begin
Application.Initialize;
Application.Title := 'FNR Ancient Measures Calculator v2.0';
Application.CreateForm(TAlpha, Alpha);
Application.CreateForm(TBeta, Beta); // Demo-Hinweis, Aufruf zu freiwilligem Support
Application.Run;
end.