FormShow mit CoolTrayIcon dauert zu lange

[Matze]

Zitat von AlexII:

Und bei mir sieht das so aus, wenn jemand lust hat guck mal durch, vielleicht gibt's da was zu verbessern.

Liest du, was wir hier schreiben? Nimm OnCreate und nicht OnShow. Sonst ist klar, dass bei jedem Maximieren die Anwendung erst einmal hängt, bei diesem gigantischen Code, der dann jedesmal abgearbeitet wird (ich habe ihn mir nicht angesehen).

Edit: Prüfe nie auf "= true" oder "= false".

So muss das sein:
if CheckBoxX.Checked then oder

if not CheckBoxX.Checked then

[AlexII]

Zitat:

Edit: Prüfe nie auf "= true" oder "= false".

Wow, danke, cooler Tipp

[Matze]

Und das hier:

Delphi-Quellcode:

case ComboBox1.Itemindex of
  3: Image9.Visible := False;
  7: Image9.Visible := False;
  21: Image9.Visible := False;
  22: Image9.Visible := False;
  24: Image9.Visible := False;
  25: Image9.Visible := False;
end;

lässt sich bsp. auch vereinfachen:

Delphi-Quellcode:

case ComboBox1.Itemindex of
  3, 7, 21, 22, 24, 25: Image9.Visible := False;
end;

Falls du wissen möchtest, wieso das mit dem Boolean-Vergleich so ist, kannst du dir das mal ansehen: Über den Umgang mit Boolean.

Edit: Achja, benenne deine Komponenten doch mal vernünftig. Du verstehst deinen Code so nämlich nur in Verbindung mit dem Formular.

Das liest sich beispielsweise sehr schlecht:

Delphi-Quellcode:

if ShowDate1.Checked=True then
begin
Label10.Visible:=True;
Label10.Caption:=FormatDateTime('dddd, d. mmmm yyyy', date);
end else Label10.Visible:=False;

Man kann erahnen, was du machst, aber viel lesbarer ist sowas, da du alleine anhand des Codes sagen kannst, was genau in der GUI passiert:

Delphi-Quellcode:

if ChkBoxShowDate.Checked then
begin
  LblDate.Visible := true;
  LblDate.Caption := FormatDateTime('dddd, d. mmmm yyyy', date);
end else
  LblDate.Visible := false;

Grüße, Matze

[Jens Hartmann]

Hallo Alex,

also was mir so aufgefallen ist, sind deine Bezeichner. Es kann sein, das es so OK ist, wenn du diese z.B. für Find oder so nutzen tust, aber wenn nicht wäre es schon ratsam, deinen Komponenten eindeutige Bezeichner zu geben...

Delphi-Quellcode:

Image11.Visible := False; 
Image10.Visible := True; 

Label10.Caption:='Label10'; 
Label10.Left:=348; //344 
Label10.Caption:=FormatDateTime('dddd, d. mmmm yyyy', date); 

//So z.B.

ImageFirma.Visible := False;
ImageKunde.Visible := True;

//oder, bevor man mich schlägt weil Deutsche Namen

Image.Company := false;
Image.Company := true;

ich denke Du weißt was ich meine.

[EDIT] Zu langsam, aber kein roter Kasten, seltsam

Gruß Jens

[AlexII]

Ich hab in der Schule so gelernt, wir habe nie die Bezeichnung geändert. Bin also so gewöhnt, die Umstellung ist sogar etwas umständlich. Aber mal schauen, vllt kriege ich es hin.

[Jens Hartmann]

Zitat von Alex:

Ich hab in der Schule so gelernt, wir habe nie die Bezeichnung geändert. Bin also so gewöhnt, die Umstellung ist sogar etwas umständlich. Aber mal schauen, vllt kriege ich es hin.

Es wird Dir und allen anderen aufjedenfall das leben leichter machen. Du willst ja vieleicht auch in 2 Jahren nochmal was an deinem Programm machen.

Gruß Jens

[Matze]

Zitat von Jens Hartmann:

Delphi-Quellcode:

//oder, bevor man mich schlägt weil Deutsche Namen

Image.Company := false;
Image.Company := true;

Na ob das kompiliert?

[AlexII]

Also ich hab jetzt den ganzen Code in OnCreate verlagert, aber mehr als die Hälfe funktioniert nicht. Da werden den Formularen 3 und 5 Werte zugewiesen, aber diese sind doch noch nicht createt.

Hab keine Ahnung wie man das anders als in OnShow machen kann.

[Jens Hartmann]

Zitat von Matze:

Na ob das kompiliert?

Ne, ich denke eher nicht, muss natürlich so aussehen.

Delphi-Quellcode:

CompanyImage.Visible := False; 
CustomerImage.Visible := True;

Jens

[Jens Hartmann]

Zitat von Alex:

Da werden den Formularen 3 und 5 Werte zugewiesen

Dann leg die Zuweisung doch in das FormCreate von Form3 und von Form5. Es ist logisch. In deiner Projektdatei, werden diese erst später erstellt.