antifreeze beim form erstellen

[dioony]

Mittag!

Hab da mal ne Frage... Und zwar möchte ich gerne eine Form während der Laufzeit öffnen. Dies ist ja auch normalerweise kein Problem, aber die Form wird nicht richtig angezeigt, weil es eine Art SplashScreen sein soll, das angezeigt wird, während in der darunter liegenden Form mehrere Dateien geladen und verarbeitet werden...
Nun wird die neue Form auch angezeigt, bloß ohne Inhalt sprich ohne Labels oder Images...

Gibts da sowas wie ein Antifreeze von den Indy Komponenten?

Das ganze wird mit folgender prozedur in Form1 aufgerufen:

Delphi-Quellcode:

procedure TForm1.ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
begin
   Form3:=TForm3.Create(self);
   Form3.Show;
   Form1.Enabled:=false;
   browsepics(ShellTreeView1.Path);
   Form3.Close;
   Form1.Enabled:=true;
end;

browspics ist eine procedure, welche die dateien lädt und verarbeitet...


In project1.dpr kommt die zeile
Application.CreateForm(TForm3, Form3); nicht vor...

[Robert Marquardt]

Natuerlcih gibt es ein Antifreeze.
Du wirst dich allerdings mit der Threadprogrammierung auseinandersetzen muessen.
So wie ich das sehe bedient browsepics die Messagepumpe nicht.

[kalmi01]

Hi,

eventuell hilft Dir schonApplication.ProcessMessages; weiter.

[dioony]

messagepumpe?? weiß jetzt nicht, was du meinst...

kann man da denn was anderes machen?

ein image kann ich da nicht rüberlegen, weil sich das TImage nicht über eine Scrollbox legen lässt... nur darein oder darunter...


Edit:
Application.ProcessMessages; bewirkt auch nichts...

[scp]

...schon, kommt nur drauf an, wo man es hinsetzt. Application.ProcessMessages muss während des ladens regelmäßig aufgerufen werden, um Wirkung zu zeigen. Z.B. nachdem du den Status in ein Label legst oder nach jedem geladenen Bild.
Threads sind natürlich die feinere Alternative.

[dioony]

abend!

Browsepics lädt ja in einer schleife alle bilder.
Hab jetzt Application.ProcessMessages; in die schleife eingebaut, so dass sie bei jedem durchlauf immer neu aufgerufen wird.

Die Form wird nun richtig geladen!

danke!