Thema: Delphi OnCreate Statusanzeige

Einzelnen Beitrag anzeigen

Tommy82

Registriert seit: 12. Dez 2005
61 Beiträge
 
Delphi 2007 Professional
 
#7

Re: OnCreate Statusanzeige

  Alt 14. Apr 2007, 14:50
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
  Mit Zitat antworten Zitat