Abschalten von ShowMessage('..') durch ProgramCode ??

[EccoBravo]

Hallo,

Wie kann ich unter bestimmten Bedingungen mit dem ProgrammCode ein Messagefenster wieder beenden?

Will zB. 'Bitte warten ! Bilder werden geladen.' anzeigen.

Danke

EB

[Die Muhkuh]

Hi,

Du könntest eine eigene Form dafür machen. ShowMessage "hält" ja quasi das Programm an, bis man drauf klickt.

[Bernhard Geyer]

Falls du nur mit Vista arbeitest sollte sowas mit den neuen Taskdialog möglich sein. Diverse Komponentenhersteller (LMD, TMS, ...) haben diesen Taskdialog auch für Windows < Vista verfügbar gemacht.

[Garfield]

http://support.microsoft.com/kb/181934

[alzaimar]

Ich habe dafür mal eine kleine Unit gebastelt, die ein kleines Fenster mit einem Text 'Bla bla ...bitte warten' per 'Show' zeigt ("Bla Bla" ist der Text, den man frei wählen kann). Wenn man fertig ist, wird die Form einfach per 'Close' geschlossen.

[EccoBravo]

Hallo, habe eine eigene Form dafür gebastelt und diese in Project hinzufühen eingebaut.

Wenn ich die Reihenfolge in der Projectdatei wie folgt mache, gibt es eine Zugriffsverletzung

Delphi-Quellcode:

program EB_Pat_Foto_Project1;

uses
    Forms,
    EB_Pat_Foto_U in 'EB_Pat_Foto_U.pas' {Form1},
    EB_Pat_Foto_Satz_U in 'EB_Pat_Foto_Satz_U.pas',
    EB_Pat_Foto_SatzList_U in 'EB_Pat_Foto_SatzList_U.pas',
    F_Meldung_U in 'F_Meldung_U.pas'{F_Meldung}

{$R *.res}

begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.CreateForm(TF_Meldung, F_Meldung);
    Application.Run;
end.

Wenn ich den Code in der Projectdatei wie folgt mache,
zeigt er das Meldungsfenster bei Programmstart an und schliesst es dann auch nach einer Weile.
Nur öffnet dann das richtige Programmfenster Form1 nicht.

Delphi-Quellcode:

program EB_Pat_Foto_Project1;

uses
    Forms,
    EB_Pat_Foto_U in 'EB_Pat_Foto_U.pas' {Form1},
    EB_Pat_Foto_Satz_U in 'EB_Pat_Foto_Satz_U.pas',
    EB_Pat_Foto_SatzList_U in 'EB_Pat_Foto_SatzList_U.pas';
    F_Meldung_U in 'F_Meldung_U.pas'{F_Meldung}

{$R *.res}

begin
    Application.Initialize;
    Application.CreateForm(TF_Meldung, F_Meldung);
    Application.CreateForm(TForm1, Form1);
    Application.Run;
end.

Wozu brauche ich das ?
Beim Start wird mein Programmfenster Form1 erst sehr spät angezeigt,
da eine Menge Dateien (Bilder)in Form1.Create dazu geladen werden müssen.

Damit der User merkt, dass das Programm auch wirklich gestartet hat,
soll "Bitte warten" ...

Was habe ich falsch gemacht, daß bei der 2. Variante nach Schliessen des Meldungsfensters das richtige Form nicht mehr startet?

(F_Meldung.Show steht ganz am Anfang der Form1.Create und F_Meldung.Close ganz am Ende der Form1.Create)

Vielen Dank für Hilfe
EB

[rwachtel]

Der richtige Suchbegriff wäre "Splash Screen".

http://www.delphipraxis.net/internal...ect.php?t=9679