OnCreate Statusanzeige

[Tommy82]

Hallo,

ich rufe ein Formular einer DLL Datei mittels Showmodal auf. Im OnCreate Ereignis dieses Formulars sind mehrere Proceduren, welche nacheinander ausgeführt werden.
z.B. Exceldaten_einlesen; Exceldaten_auswerten; exceldaten_schreiben;

Wenn ich allerdings auf das Formular ein Label setze (welches mir den Status anzeigen soll) und ich dann in die jeweiligen Proceduren folgendes reinschreibe :

Delphi-Quellcode:

Label1.Caption := 'Gesamt: ' + IntToStr(FileListBox1.Items.Count) + ' / Erledigt: ' + IntToStr(zaehler);
Label1.Update;

dann wird mir trotzdem das Label nicht angezeigt. Das Formular selber wird auch erst angezeigt, wenn alle Proceduren erfolgreich durchgelaufen sind.
Wie bekomme ich da trotzdem den Statuszeiger rein ?

Information:
form.Update geht auch nicht

mfg

Tommy82

[CK_CK]

Hallo,
vielleicht hilft es, die Prozeduren im OnShow-Event des Formulars aufzurufen... ;)

Chris

[Tommy82]

Habe ich schon probiert, selber Effekt. Muss ich noch irgendwo was zwischensetzten ?

mfg

Tommy82

[CK_CK]

Ja, vielleicht ein Application.ProcessMessages; damit das Formular auf neu gezeichnet werden kann...

Chris

[CCRDude]

Nach dem Label.Update wäre noch ein Application.ProcessMessages praktisch...
Wenn es sich allerdings nicht um ein reines Fortschrittsfenster handelt, würde ich das noch später aufrufen (über einen Timer z.B.). Bzw. da ja doch recht rechenlastig, das Lesen/Auswerten/Schreiben in einen Thread verschieben.

[Christian Seehase]

Moin Tommy,

vielleicht solltest Du diese Anzeigen in einen Splash-Screen auslagern

[Tommy82]

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
 ini : TIniFile;
 ArtikelID : Integer;
begin
 ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'einstellungen.ini');
 Try
  ArtikelID := ini.ReadInteger('Programmdaten','akt_ArtNr',-1);
 Finally
 END;

 Label1.Caption := 'Warenwirtschaft';
 Label1.Update;
 Application.ProcessMessages;
 Aktualisiere_Warenwirtschaft(ArtikelID);
 Label1.Caption := 'Preissuchmaschine';
 Label1.Update;
 Application.ProcessMessages;
 Aktualisiere_Preissuchmaschinen(ArtikelID);
 Aktualisiere_Mitbewerber(ArtikelID);
 Aktualisiere_Lieferanten(ArtikelID);

end;

habe das mal so ausprobiert,
So sieht es aktuell aus, aber das Formular wird erst nach Beendigung angezeigt. Vorher ist nix zu sehen.
habe mal "Just for Fun" in die Proceduren NUR ein normales Sleep(2000) reingesetzt zum testen. Trotzdem baut sich das Formular erst nach beenden ALLER Proceduren auf

mfg

Tommy82

[Christian Seehase]

Moin Tommy,

die Idee mit Sleep ist gar nicht mal so gut ;-)

Wenn Du Sleep aufrufst, gibt der Thread seine ihm zustehende Rechenzeit sofort wieder ab (mindestens für die angegebene Zeit), und es passiert in Deinem Programm nichts.

[Tommy82]

Delphi-Quellcode:

procedure TForm2.FormShow(Sender: TObject);
var ini:TIniFile;
    DatPfad,
    Dateiname,
    zwischen : String;
    lauf : Integer;
begin
 Try
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'einstellungen.ini');
  Try
   DatPfad := ini.ReadString('DHL','DatPfad','C:\Temp');
  Finally
   ini.Free;
  END;
 Except
  ON E: Exception DO
  Showmessage('Fehlercode #1' + E.Message);
 END;
 FileListBox1.Directory := DatPfad;
 FileListBox1.Mask := '*.dat*';
 tbl_Verarbeitet.TableName := ExtractFilePath(ParamStr(0)) + 'Datenbanken\DHL\Verarbeitet.db';
 tbl_Eigen.TableName := ExtractFilePath(ParamStr(0)) + 'Datenbanken\DHL\Daten.db';
 FOR lauf := 0 to FileListBox1.Items.Count -1 DO
 BEGIN
  Label1.Caption := 'Lese Dat Daten (Gesamt: ' + IntToStr(FileListBox1.Items.Count)+ ' / Erledigt: ' + IntToStr(lauf)+ ')';
  Label1.Update;
  Application.ProcessMessages;
  Dateiname := FileListBox1.Items[lauf];
  Dateiname := Copy(Dateiname,1,Length(Dateiname));
  tbl_Verarbeitet.Open;
  tbl_Verarbeitet.First;
  IF tbl_verarbeitet.Locate('Verarbeitet',Dateiname,[]) THEN
   // Wenn gefunden, tue nix
  ELSE
  BEGIN
   zwischen := Dateiname;
   Dateiname := DatPfad + Dateiname;
   Bearbeite_Datei(Dateiname);
   Dateiname := Zwischen;
   tbl_Verarbeitet.AppendRecord([
                                Dateiname,
                                Date,
                                ''
                                ]);
  END;
 END;
 Self.Release;
end;

Dann so. Habe jetzt mal eine andere DLL genommen. Hier werden die Excel-Listen verarbeitet. Trotzdes Labels und des Application. ... erscheint kein Formular.

mfg

Tommy82

[Luckie]

OnPaint dürfte das richtige Ereignis sein. Allerdings muss man dann einen Flag setzen, damit der Code nur einmal ausgeführt wird.

[Tommy82]

OnPaint hat denselben Effekt wie auch OnShow.

Ich habe mir mal eine kleines Testprogramm geschrieben. Einfach nur 2 Formulare, auf das erste ein Button und das andere einfach nur ne Showmessage('test') drauf. Diese Schowmessage habe ich bei "OnPaint, OnCreate (def. falsch), OnShow und bei OnActivate" reingetan.

den gewünschten Effekt brachte nur "OnActivate".

Trotzdem danke für eure Mühe.

mfg

Tommy82

[SirThornberry]

auch alles logich.
OnCreate wird nach dem erstellen ausgelöst so das die erstellten Dinge initialisiert werden können
OnShow wird ausgelöst bevor das Formular sichtbar wird, wenn die Message zum anzeigen eingeht
OnPaint wird ausgelöst wenn die Message für das Paint eingeht, sichtbar wird das gemalte aber erst nach Abschluss des OnPaint (im Normalfall).

[Tommy82]

genau diesen Gedanken hatte ich auch wärend meines Postings.
Aber sowas fällt einem immer erst ein, wenn man 1000mal rumprobiert hat und schon ganz frustriert ist.

mfg

Tommy82

[hsg]

Solche Problematiken löse ich bei mir mit einem Event, der nach dem Anzeigen des Fensters ausgelöst wird.
Das ganze sieht dann ungefähr wie folgt aus:

Delphi-Quellcode:

Const
  UM_AFTERSHOW  = WM_USER + 1000;
TMyForm = class(TForm)
  private
    FOnAfterShow      : TNotifyEvent;             // Event für Funktionen, die _nach_ dem Anzeigen des Fensters passieren sollen
    procedure CMShowingChanged(var Message: TMessage); message CM_SHOWINGCHANGED;
    procedure UMAfterShow( var message: TMessage); message UM_AFTERSHOW;
  published
    property    OnAfterShow : TNotifyEvent read FOnAfterShow write FOnAfterShow;
end;

implementation
//----------------------------------------------------------------------------------------------------------------------
// Änderung des Anzeigemodus eines Fensters
//----------------------------------------------------------------------------------------------------------------------
procedure TMyForm.CMShowingChanged(var Message: TMessage);
begin
  inherited;
  Application.ProcessMessages();
  PostMessage(Handle,UM_AFTERSHOW,0,0);
end;

//----------------------------------------------------------------------------------------------------------------------
// Message AfterShow erhalten
//----------------------------------------------------------------------------------------------------------------------
procedure TMyForm.UMAfterShow( var message: TMessage);
begin
  if Assigned(FOnAfterShow) then FOnAfterShow(Self);
end;

Alternativ kann man natürlich die Message direkt in der TForm schicken (dann eben mittels Postmessage am Ende vom OnShow-Event) ,
meine Fenster sind aber alle von meiner privaten Fensterklasse abgeleitet, so dass ich nach Belieben im Designer den Eventhandler zuweisen kann und die gewünschte Funktionalität immer zu Verfügung habe.

Bei OnActivate muss natürlich darauf geachtet werden, dass ein Fenster auch öfters aktiviert werden kann (z.B. wenn zwischendurch ein anderes Fenster aktiviert wurde).

[Tommy82]

Da es bei mir nicht die Möglichkeit gibt, ein Fenster ein zweites mal zu Öffnen, sehe ich mit "OnActivate" keine weiteren Schwierigkeiten.
Falls es doch welche gibt, immer her damit. Man lernt schließlich NIE aus :thumb:

mfg

Tommy82