Hallo die Gemeinde,
auf der Windows 10 Entwicklungsumgebung gibt es keinerlei Probleme. Ich pfusche in meiner Applikation auch nicht an diversen Handles rum
Meine Applikation erzeugt dynamisch Formulare:
fc := TDFormClass(FindClass(fFormKlasse));
f := fc.Create(self);
f.Parent := fPanDock; -> Der
Handle (TPanel) auf dem die Form plaziert wird
f.FormName := fFormName;
f.WindowState := wsNormal;
f.Visible := true;
f.Init; // diverse Einstellungen wie z.B.queries starten
f.ReadPages; => Zugriff auf Datenbank diverse Einstellungen laden.
f.Show;
--------------
das onCreate auf der Form sieht so aus:
inherited;
self.Visible := false;
self.Tag := 1;
self.Left := 0;
self.Top := 0;
self.Width := 800;
self.Height := 600;
self.ClientWidth := 800;
self.ClientHeight := 600;
self.Position := poDefault;
self.WindowState := wsNormal;
self.FormStyle := fsNormal;
self.BorderStyle := bsNone;
self.WindowState := wsMinimized;
self.Align := alClient;
self.Font.Size := 10;
-----------------------------
Jetzt das eigentliche Problem.
Bisher gab es nie Probleme, beim Kunden lief das Ding bisher auf nem 2008er Terminalserver. Seit der Umstellung auf 2016 gibt es immer wieder Probleme:
Listenindex out of maximum(8) - oder (10) mal so, mal so. Nach mehrfachem Neustart der Maschine war es weg. Dann ein WindowsUpdate und das Problem ist wieder da. - Dann wieder ein paar Neustarts und es geht wieder. Das kann aber auf Dauer nicht die Lösung sein.
Auf ner Windows 10 Büchse oder meinem 2019er Server gibt es keine Probleme.
Ist da irgendwas bekannt, was da die Probleme verursachen könnte?
beste Grüße
Jörg