MainMenu unsichtbar nach Update auf XE10.2.2

[Rollo62]

Zitat:

1. Citrix: Bisher keien Probleme bekannt
2. Lokale Installation: Ca. 60% arbeiten korrekt

Exakt, kann ich bestätigen.
Ich rede jetzt nicht von Delphi Anwendungen, aber ziemlich massive Probleme auf lokalen Rechnern mit Win10 Creators Fall Update und diversen Programmen.
Citrix läuft gut, weiss aber im Moment gar nicht welche Windows-Version das ist.

Nach Updates der Programme war es dann aber oft OK, habe jetzt nicht gecheckt womit die entwickelt wurden (David Tobit, FoxitReader, um mal zwei zu nennen).

Rollo

[norwegen60]

Hallo,

nach einiger Sucherei habe ich herausgefunden, wie man das unsichtbare MainMenu erzeugen kann
Man benötigt nur ein MainForm mit einem TMainMenu und folgende zwei Anweisungen

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.WindowState := wsMaximized;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  miDatei.Caption := 'Test';
end;

Setzt man wsMaxiMized schon in der IDE, wird das Menu korrekt angezeigt.

Ich speichere beim Schließen der Anwendung Größe und Lage des Fensters und Öffne die Anwendung beim nächsten Start wieder dort. Es hat eine Zeit lang gedauert, bis ich herausgefunden habe, dass der Fehler nur bei denen auftrat, die die Anwendung im Status Maximized beendet haben.
Der Fehler tritt bei Win7, Win8 und Win10 auf.

Im meiner Anwendung wurde bei Resize die Größe des Fensters angezeigt. Da das aber nur für ein Test war, war es kein Problem die Zuweisung zu löschen. Damit funktioniert die Anwendung wieder einwandfrei.
Sie funktioniert auch einwandfrei, wenn ich die Eingenschaft WindowsState schon in der IDE auf wsMaximized setze. Dann kann ich das Form ohne Probleme in OnCreate auf die letzte Größe ändern.

Hat jemand eine Erklärung?

[Uwe Raabe]

Zitat von norwegen60:

Hat jemand eine Erklärung?

Nicht direkt, aber hast du mal gezählt, wie oft das Resize allein durch das Setzen von WindowState oder auch durch das Setzen der Caption (rekursiv) aufgerufen wird?

Das Setzen der Caption löst einen Neuaufbau des Menüs aus. Dazu wird es erstmal gelöscht und dann wieder aufgebaut. Menü weg oder wieder da löst aber eben auch einen Resize-Event aus, was zu diesem rekursiven Aufruf führt.

Schreib die Info lieber in irgendein Label - oder noch besser: verwende ein richtiges Logging (z.B. CodeSite).

[norwegen60]

Ja, ich hatte schon einen Zähler eingebaut. Resize wurde 61x aufgerufen. Ich hätte eigentlich erwartet, dass dieser Effekt auch beim Umschalten von Maximized zu Normal auftritt, aber da war es nur 1x.
Blöd nur wenn so was jahrelang funktioniert und dann plötzlich Probleme macht.
Insgesamt war die Implementation aber unsinnig weshalb sie jetzt draußen ist.

[himitsu]

Zitat:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.WindowState := wsMaximized;
end;

Du greifst schon jahrelang von innerhalb der Klasse auf vielleicht deren globale Variable drauf zu, anstatt auf Self?

[Uwe Raabe]

Zitat von himitsu:

Du greifst schon jahrelang von innerhalb der Klasse auf vielleicht deren globale Variable drauf zu, anstatt auf Self?

Das ist in der Tat schon echt böse, aber Delphi fängt das netterweise dadurch ab, daß die Instanz bereits vor dem Aufruf von Create passend gesetzt wird. Auch wieder so ein Fall, wo Bad Practice schon jahrelang toleriert wird. Irgendwann kommt aber dann doch das böse Erwachen und führt zu Kommentaren wie diesem:

Zitat von norwegen60:

Blöd nur wenn so was jahrelang funktioniert und dann plötzlich Probleme macht.

[himitsu]

Zitat von Uwe Raabe:

aber Delphi fängt das netterweise dadurch ab, daß die Instanz bereits vor dem Aufruf von Create passend gesetzt wird.

Jupp, aber nur bei automatisch erzeugten Forms, welche über Applicataion.CreateForm erzeug werden. Normal ist das nicht und knallen wird es immer, wenn die Form/Komponente mehrfach existiert.