Info-Fenster nachträglich vor Programm anzeigen

[IwasNix]

Ein herzliches Servus, ich komme einfach nicht weiter :(

Ich möchte ein bestehendes Programm um ein Info-Fenster (frmInfo) ergänzen.
Dieses soll bei Programmstart angezeigt werden.

Auch wenn ich in Projekt/Optionen/Formulare als Hauptformular frmInfo auswähle, so erscheint trotzdem frmStart als erstes und frmInfo liegt hinter dem frmStart.

Wenn ich frmStart als Hauptfenster lasse und in frmStart versuche mit frmInfo.ShowModal(); in FormActivate anzuzeigen bekomme ich die Fehlermeldung :Zugriffsverletzung bei Adresse 01206A82 in ...

Aufgabe:
Vor dem bestehenden Programm sollen nun einige Informationen wie z.B. Anzahl offener Rechnungen angezeigt werden und erst nach Bestätigung mit dem Button-OK im Info-Fenster soll das eigentliche Programm verwendet werden können.

Für jede Info bin ich euch dankbar
LG Roman

[yogie]

Hallo,
wenn ich Dich richtig verstehe, soll das Fenster vor der eigentlichen
Main-Form angezeigt werden. Dazu muß die Projektdatei *.dpr bearbeitet werden.
Nur als Anregung:

Code:

uses
  Forms,
  sysutils,
  xxxMain in 'xxxMain.pas' {frmMain},
  ... usw
{$R *.res}

begin
  frmIntro:=TfrmIntro.Create(Application);
  frmIntro.Show;
  frmIntro.Update;
  sleep(1000);

  Application.Initialize;

  Application.CreateForm(TfrmMain, frmMain);
  ... usw

  frmIntro.Close;
  frmIntro.Release;

  Application.Run;
end.

sleep ist da natürlich nicht wirklich gut, sorgt aber dafür, daß frmIntro wenigstens
eine Sekunde zu shen ist.

[IwasNix]

Super ....
Funktioniert, ich habe nur noch Show in ShowModal geändert und sleep(1000) entfernt.

Jetzt wird das Info-Fenster solange angezeigt bis der OK-Button gedrückt wird. ( frmInfo.CloseModal; )

Erst dann wird das 'eigentliche Programm' ausgeführt - echt super!

:thumb: Danke für die rasche Hilfe :thumb:

[yogie]

... freut mich, das war die gute Tat für heute

[bcvs]

Zitat:

Zitat von IwasNix (Beitrag 1384118)

Wenn ich frmStart als Hauptfenster lasse und in frmStart versuche mit frmInfo.ShowModal(); in FormActivate anzuzeigen bekomme ich die Fehlermeldung :Zugriffsverletzung bei Adresse 01206A82 in ...

Das muss aber funktionieren. Mache ich ständig so.
Wo erzeugst du denn dein frmInfo. Wenn du es automatisch erzeugen lässt, ist es an dieser Stelle möglicherweise noch nicht vorhanden. Also besser manuell erzeugen, wenn es gebraucht wird.

Also im FormActivate vom frmStart:

Delphi-Quellcode:

  frmIntro:=TfrmIntro.Create(nil);
  try
    frmIntro.Show;
  finally
    frmInfo.Free;
  end;

Und dann noch mit einem Flag dafür sorgen, dass dieser Code nur beim ersten FormActivate nach dem Programmstart ausgeführt wird. Ich finde das eleganter als den Weg über die .dpr, weil man dann alles zusammen hat.

[Aviator]

Zitat:

Zitat von bcvs (Beitrag 1384127)

Zitat:

Zitat von IwasNix (Beitrag 1384118)

Wenn ich frmStart als Hauptfenster lasse und in frmStart versuche mit frmInfo.ShowModal(); in FormActivate anzuzeigen bekomme ich die Fehlermeldung :Zugriffsverletzung bei Adresse 01206A82 in ...

Das muss aber funktionieren. Mache ich ständig so.
Wo erzeugst du denn dein frmInfo. Wenn du es automatisch erzeugen lässt, ist es an dieser Stelle möglicherweise noch nicht vorhanden. Also besser manuell erzeugen, wenn es gebraucht wird.

Also im FormActivate vom frmStart:

Delphi-Quellcode:

  frmIntro:=TfrmIntro.Create(nil);
  try
    frmIntro.Show;
  finally
    frmInfo.Free;
  end;

Wenn du das so machst wie in deinem Beispiel dann bezweifle ich stark, dass du überhaupt etwas siehst. Wenn überhaupt, dann nur ein kleines Aufblitzen des Fensters. :roll:

[Glados]

Wenn überhaupt dann so

Delphi-Quellcode:

 frmIntro:=TfrmIntro.Create(nil);
  try
    frmIntro.ShowModal; // MODAL!
  finally
    frmInfo.Free;
  end;

[bcvs]

Ja, ja, ist ja gut.

Ich meinte natürlich ShowModal

[Uwe Raabe]

Könnte man auch etwas kompakter so erledigen:

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmIntro, frmIntro);
  // eventuell noch weitere Forms erstellen
  frmIntro.ShowModal;
  Application.Run;
end.