Ladebalken, fürn Start des Proggs...

adler · Beiträge: 511 Windows XP Delphi 05 Pers

Hi!

Hab ein Startbildschirm gemacht (so wies in der FAQ steht) hab da jetzt nen Ladebalken, keine spielerreien mit nem Timer, nein ich wills richtig. Jetzt hab ich bei diesem ganzen Application.kram da immer meine Progressbar eins hochzählen lassen, nach jeder application.form oder wie auch immer, jetzt startet mein prog net mehr...

_________________
Wo's nix zu gucken gibt, gibts vielleicht was zu hören.

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

*sich durch die Wüste schleppt* Source, Source .... ich brauche, Source .....

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

adler · Beiträge: 511 Windows XP Delphi 05 Pers

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:

program htmledit;

uses
  Forms,
  main in 'main.pas' {frmMain},
  child in 'child.pas' {frmChild},
  Unit1 in 'Unit1.pas' {past_hlink},
  ank_ver in 'ank_ver.pas' {Form2},
  Unit3 in 'Unit3.pas' {past_flash},
  Unit4 in 'Unit4.pas' {past_stylesheet},
  Unit5 in 'Unit5.pas' {past_javascript},
  Unit6 in 'Unit6.pas' {past_bild},
  Unit7 in 'Unit7.pas' {code_lauftext},
  Unit8 in 'Unit8.pas' {format_ueberschrift},
  Unit9 in 'Unit9.pas' {php_msql_connect},
  Unit10 in 'Unit10.pas' {php_msql_insert},
  Unit11 in 'Unit11.pas' {php_msql_zeile_auslesen},
  Unit12 in 'Unit12.pas' {php_msql_disconnect},
  Unit13 in 'Unit13.pas' {php_msql_update},
  Unit14 in 'Unit14.pas' {html_schrift_form},
  Unit15 in 'Unit15.pas' {php_mysql_zloeschen},
  suche in 'suche.pas' {bearb_suche},
  ersetzen in 'ersetzen.pas' {bearb_ersetzen},
  edit_info in 'edit_info.pas' {edi_info},
  startscreen in 'startscreen.pas' {Startbild},
  php_msql_tables in 'php_msql_tables.pas' {php_mysql_tablesen},
  wpe_open in 'wpe_open.pas',
  html_kommentar in 'html_kommentar.pas' {html_komment},
  php_kommentar in 'php_kommentar.pas' {php_komment},
  if_abfrage in 'if_abfrage.pas' {Form16},
  php_whileschleife in 'php_whileschleife.pas' {php_whileschl},
  new_dat in 'new_dat.pas' {neue_datei},
  scripts in 'scripts.pas',
  prj_laden in 'prj_laden.pas' {pro_laden},
  proj_opt in 'proj_opt.pas' {frmproj_opt},
  new_folder in 'new_folder.pas' {frmnew_folder},
  unit17 in 'unit17.pas' {frmneuer_unterordner},
  neue_tabelle in 'neue_tabelle.pas' {frm_table},
  prog_opt in 'prog_opt.pas' {frm_prog_opt},
  prog_bar in 'prog_bar.pas' {Form18};

{$R *.res}

begin
  startbild := Tstartbild.Create (Application);
try
    startbild.Showmodal;
    startbild.Update;

  Application.Initialize;
//Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(TfrmMain, frmMain);
//Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(TStartbild, Startbild);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tpast_hlink, past_hlink);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(TForm2, Form2);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tpast_flash, past_flash);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tpast_stylesheet, past_stylesheet);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tpast_javascript, past_javascript);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tpast_bild, past_bild);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tcode_lauftext, code_lauftext);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tformat_ueberschrift, format_ueberschrift);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tphp_msql_connect, php_msql_connect);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tphp_msql_insert, php_msql_insert);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tphp_msql_zeile_auslesen, php_msql_zeile_auslesen);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tphp_msql_disconnect, php_msql_disconnect);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tphp_msql_update, php_msql_update);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Thtml_schrift_form, html_schrift_form);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tphp_mysql_zloeschen, php_mysql_zloeschen);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tbearb_suche, bearb_suche);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tbearb_ersetzen, bearb_ersetzen);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tedi_info, edi_info);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Thtml_komment, html_komment);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tphp_mysql_tablesen, php_mysql_tablesen);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tphp_komment, php_komment);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(TForm16, Form16);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tphp_whileschl, php_whileschl);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tneue_datei, neue_datei);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tpro_laden, pro_laden);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tfrmproj_opt, frmproj_opt);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tfrmnew_folder, frmnew_folder);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tfrmneuer_unterordner, frmneuer_unterordner);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tfrm_table, frm_table);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(Tfrm_prog_opt, frm_prog_opt);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  Application.CreateForm(TForm18, Form18);
Startbild.Gauge2.Progress := Startbild.Gauge2.Progress+1;
  startbild.Hide;
  finally
    startbild.Free;
  end;
  Application.Run;
end.

_________________
Wo's nix zu gucken gibt, gibts vielleicht was zu hören.

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Hm. Ist das richtig, dass Du "startbild" einmal hier

markieren

Delphi-Quelltext

1:	tartbild := Tstartbild.Create (Application);

und einmal hier

markieren

Delphi-Quelltext

1:	Application.CreateForm(TStartbild, Startbild);

benutzt?

Ach ja, und ein "Application.ProcessMessages" brauchst Du wahrscheinlich zwischendurch auch noch, damit der Gauge nach jedem Erhöhen auch neu gezeichnet wird.

MfG
Peter

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

Ehemaliges Mitglied Erhaltene Danke: 1

Peter Lustig hat folgendes geschrieben:

Ach ja, und ein "Application.ProcessMessages" brauchst Du wahrscheinlich zwischendurch auch noch, damit der Gauge nach jedem Erhöhen auch neu gezeichnet wird.

Nein, eigentlich nicht. Wobei ich aber nur für den Progressbar (also nicht der/die/das Gauge) sprechen kann.

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

if you mean, wie der Franzose sagt.

Habe so einen Splashscreen noch nie gebraucht, daher bin ich mir auch nicht sicher, ob das da nötig ist.

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

Ehemaliges Mitglied Erhaltene Danke: 1

Ich hatte erst kürzlich so was gepostet, weil ich den alten Beitrag auf die Schnelle auch nicht gefunden habe. Und da habe ich das

markieren

Delphi-Quelltext

1:	Application.ProcessMessages

nicht etwa versehentlich vergessen. Ich brauchte es einfach nicht.

Ehemaliges Mitglied Erhaltene Danke: 1

Hm, ich glaube ich habe das Problem:

adler hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:	startbild.Showmodal;

think about it, wie Franzosen (laut Peter Lustig) wohl sagen ... :mrgreen:

Trotzdem hat Peter Recht, wenn du den Splash bereits am Anfang erzeugst, solltest du diese Zeile

markieren

Delphi-Quelltext

1:	startbild := Tstartbild.Create (Application);

da mittendrin entfernen!

adler · Beiträge: 511 Windows XP Delphi 05 Pers

Ne... er machts einfach net...

Ahhhhhhhhhhhhh...
kanns an dem .ShowMODAL liegen? ^^

_________________
Wo's nix zu gucken gibt, gibts vielleicht was zu hören.

adler · Beiträge: 511 Windows XP Delphi 05 Pers

Jo, hab sie entfernt...
Aber wenn ich das Showmodal weg mache, dann ists doof... er beendet sich gleich ohne das er fertig machen kann... ich verusch mal weiter ^^
:::
Habs einfach die MainForm ans Ende gestellt, danke alles klappt!

_________________
Wo's nix zu gucken gibt, gibts vielleicht was zu hören.

Ehemaliges Mitglied Erhaltene Danke: 1

adler hat folgendes geschrieben:

Aber wenn ich das Showmodal weg mache, dann ists doof... er beendet sich gleich ohne das er fertig machen kann... ich verusch mal weiter ^^

Das habe ich nicht gemeint.

Zitat:

Habs einfach die MainForm ans Ende gestellt, danke alles klappt!

Das auch nicht. Ich habe in einem Beitrag einen Link, der dir das Prinzip zeigt, das ich nutze. Und da heißt es ganz einfach:

markieren

Delphi-Quelltext

1:

Show;

Und nicht

markieren

Delphi-Quelltext

1:	ShowModal;

Die Reihenfolge der Forms würde ich nicht ändern.

adler · Beiträge: 511 Windows XP Delphi 05 Pers

Ich meine net weg machen ^^ meinte schon, das modal weg machen und das show lassen.

_________________
Wo's nix zu gucken gibt, gibts vielleicht was zu hören.

Ehemaliges Mitglied Erhaltene Danke: 1

Aber hältst du es wirklcih für günstig alle Forms gelich beim Start zu erzeugen? Das frißt Speicher ohne Ende. Erzeug nur das Hauptformular und den Rest bei Bedarf. Dann brauchst du auch keine SplashScreen.

adler · Beiträge: 511 Windows XP Delphi 05 Pers

Aber ich will nen Splashscreen... ausserdem macht der das alleine

_________________
Wo's nix zu gucken gibt, gibts vielleicht was zu hören.

Ehemaliges Mitglied Erhaltene Danke: 1

Was macht er alleine? Den Speicher voll rammeln? Ja da hast du recht. :roll:

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Zitat:

Den Speicher voll rammeln?

Wie muss ich mir das jetzt bildlich vorstellen? :mrgreen:

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

adler · Beiträge: 511 Windows XP Delphi 05 Pers

dann muss ich die form bevor ich sie showmodal... anzeige, .creat machen?
is doch schwachsinn oder? ^^
Dann ist wärend der laufzeit, alles langsamer :/

_________________
Wo's nix zu gucken gibt, gibts vielleicht was zu hören.

Raphael O. · Beiträge: 1596 VS 2013

ich finde es besser mehrmals eine Sekunde zu warten als einmal 5Sekunden

adler · Beiträge: 511 Windows XP Delphi 05 Pers

Ist nur einmal ca... 2 oder weniger

Ich finde das so besser.

_________________
Wo's nix zu gucken gibt, gibts vielleicht was zu hören.

Ehemaliges Mitglied Erhaltene Danke: 1

adler hat folgendes geschrieben:

dann muss ich die form bevor ich sie showmodal... anzeige, .creat machen?
is doch schwachsinn oder? ^^
Dann ist wärend der laufzeit, alles langsamer :/

Unerheblich. Aber du hast nur 2 GB an Speicher zur Verfügung. Jetzt lad mal eine große datei zum bearbeiten in den Speicher oder arbeite mit dynamischen Arrays, die regelmäßig vergößerrt werden müssen. Dann bist du bald am Ende der Fahnenstange angekommen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme