Cannot make a visible Window modal

[SvenLittkowski]

Hallo,

ich bekomme bei Aufruf von Form.ShowModal die folgende Fehlermeldung bei der Testausführung:

"Cannot make a visible Window modal". Woran liegt's?

[Deep-Sea]

Weil das Fenster bereits sichtbar ist. Schließe es vorher

[DeddyH]

Oder Visible auf false setzen

[SvenLittkowski]

Ich hatte bereits die Eigenschaft Visible auf "False" zu stehen. Hatte es nochmal in OnCreate hineingesetzt (False), was aber zu Access Violation beim Testlauf führt.

[michaelthuma]

Sven!

Do you create the form with

An sich sollte...
var
myForm : TForm1;
begin
Application.CreateForm(TForm1, myForm); --> Windows is invisible
myForm.ShowModal

Das Form sauber anzeigen ... wobei TForm ist deine Fensterklasse ist. Oder Erzeuge es einfach mit

myFrom:=TForm1.Create;
myFrom.ShowModal;

Wenn das nicht geht, dann melde dich einfach. Werden das schon noch finden.

Zitat von SvenLittkowski:

Ich hatte bereits die Eigenschaft Visible auf "False" zu stehen. Hatte es nochmal in OnCreate hineingesetzt (False), was aber zu Access Violation beim Testlauf führt.

[SvenLittkowski]

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.

[haentschman]

Zitat von SvenLittkowski:

... was aber zu Access Violation beim Testlauf führt.

wahrscheinlich wird der Timer schon sofort gestartet. Da kann es sein, daß Beta schon angezeigt werden soll obwohl noch gar nicht erzeugt wurde.
...das eigentliche Problem ist unerklärlich, da es überall und hundertfach so gemacht wird...
- Form erzeugen (automatisch oder zur Laufzeit) ... ist damit Visible = False
- Form mit ShowModal anzeigen.


nimm das ShowModal mal aus dem Timer raus in einen ButtonClick (Testweise) und guck ob der Fehler auch da auftritt.