MainMenu unsichtbar nach Update auf XE10.2.2

[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.

[norwegen60]

Im Echtcode hatte ich über Self zugegriffen. Nur bei der Ursachensuche und der Reduktion auf das Wesentliche ist mir diese Fehler rein gerutscht.
Eigentlich wirde ich in so einem Fall weder Self.WindowsState noch Form1.WindowsState sondern nur WindowsState := wsMaximiced verwenden.
Mittlerweile ist mir eigentlich auch bewusst, dass die Klasse im Create eigentlich noch gar nicht komplett instanziert sein muss, aber es gibt eben auch Altlasten.

Mir war allerdings nicht bewusst, dass der Zugriff über Form1 nicht zulässig ist. Form1 ist nicht vielleicht, sondern ganz sicher die globale Variable von TForm1. Andernfalls würde dort die korrekte globale Variable stehen.

Aber wie gesagt
1. Zugriff direkt auf WindowsState Eigentlich zu 80% so
2. Zugrif über Self.WindowsState Um deutlich zu machen dass es ein FormVariable ist oder Form1 in einer Funktion(Self) weitergeben wird
3. Zugriff über Form1.WindowsState Kann noch Code aus den Anfängen geben

Der reale Code sah so aus:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  uRegDo.SaveFormPos(self);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  uRegDo.RestoreFormPos(self);
end;

[Uwe Raabe]

Zitat von norwegen60:

Form1 ist nicht vielleicht, sondern ganz sicher die globale Variable von TForm1. Andernfalls würde dort die korrekte globale Variable stehen.

Das ist sicher korrekt, aber es ist eben nicht immer Form1 = Self ! Vielleicht gilt das für deinen aktuellen Code, aber generell kann man von dieser Äquivalenz nicht ausgehen.

[HolgerX]

Hmm..

Zitat von norwegen60:

Mir war allerdings nicht bewusst, dass der Zugriff über Form1 nicht zulässig ist. Form1 ist nicht vielleicht, sondern ganz sicher die globale Variable von TForm1. Andernfalls würde dort die korrekte globale Variable stehen.

In meinen Projekten hat nur eine Form eine Globale Var, das Hauptfenster!
Bei allen anderen löschen ich die var als erstes bei Neuanlage.

Alle weiteren Fenster der App werden erst bei Bedarf erzeugt.

Ich habe mich schon immer gewundert, wieso immer alle neu angelegten Formulare oder Datenmodule bei der automatischen Erzeugung angelegt werden..

[Uwe Raabe]

Zitat von HolgerX:

Ich habe mich schon immer gewundert, wieso immer alle neu angelegten Formulare oder Datenmodule bei der automatischen Erzeugung angelegt werden..

Nur, wenn das in den Optionen aktiv ist: