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