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?