D11 : Programm hängt zieht 25% CPU bei UI Aktualisierung

[Michael II]

Ich würde deine hängenden Projekte mal mit zum Beispiel Eurekalog laufen lassen. Das kann bei Hängern sehr helfen.
Delphi IDE Menu Projekt > Eurekalog Optionen unter "Features > Hang Detection" "gewünschte" Zeit einstellen.

Die Meldungsdialoge verhalten sich seit irgendwann XE nicht mehr genau so wie bei D6/7. Da musst du entweder deinen Code umbauen oder die Dialogfunktion so anpassen, dass sich deine App unter den neueren Delphis wie zu D6/7 Zeiten verhält. Sehr wahrscheinlich wird dies helfen:
Application.NormalizeTopMosts;
Application.RestoreTopMosts;

Zum Beispiel so:

Delphi-Quellcode:

function MessgeBoxDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
begin
  Application.NormalizeTopMosts;
  result := VCL.Dialogs.MessageDlg(Msg, DlgType, Buttons, HelpCtx);
  Application.RestoreTopMosts;
end;

Danke jaenicke für den Windows Detective Tipp - kannte ich nicht.

[stalkingwolf]

Zitat von Michael II:

Delphi-Quellcode:

function MessgeBoxDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
begin
  Application.NormalizeTopMosts;
  result := VCL.Dialogs.MessageDlg(Msg, DlgType, Buttons, HelpCtx);
  Application.RestoreTopMosts;
end;

Das bringt leider nichts.

Generell frage ich mich
a) Warum nur das Programm und nicht die anderen 20 die wir portiert haben?
b) Warum nur auf einigen Rechnern?

[Michael II]

Zitat von stalkingwolf:

Das bringt leider nichts.

Generell frage ich mich
a) Warum nur das Programm und nicht die anderen 20 die wir portiert haben?
b) Warum nur auf einigen Rechnern?

Windowsmeldungen werden nicht überall gleich "nett" abgearbeitet . Ich hatte jetzt beim Wechsel auf D11 auch ein paar Probleme, welche leider nur auf einigen Maschinen auftraten und seit Delphi 2 nie. Und ich behaupte damit nicht, dass D11 das Problem ist.

Das mit den Meldungsfenstern hinter dem Hauptfenster. Falls die Meldungsfenster nach dem Restore der App hinten landen: Falls in diesem Fall NormalizeTopMosts; RestoreTopMosts; nix bringt: Ich habe eine (funktionierende) Bastellösung: Via Application.Components durch alle Forms wühlen und jene mit StayOnTop und dann noch jene mit Classname TMessageForm nach vorn bringen. Aber ich poste das hier nicht, da sicher jemand dann mit einem Einzeiler kontert, welcher das Problem auch und wesentlich schöner löst .

Und das mit dem "Hänger". Hast du nun mal mit Eurekalog gecheckt, was aufgezeichnet worden ist?

[stalkingwolf]

[QUOTE=Michael II;1517902]

Zitat von stalkingwolf:

Und das mit dem "Hänger". Hast du nun mal mit Eurekalog gecheckt, was aufgezeichnet worden ist?

ich habe die Einstellung nicht gefunden.

Ich habe das Programm nun komplett zusammengestrichen. Sind nur noch 5 von 30 Units und immer noch das gleiche.

Auch bei dem Dialog im Hintergrund. Ich hole diesen nach vorne. klicke den Dialog weg. Programm läuft auf 25% und bekomme es nicht beendet.
Minimiere es, maximiere es wieder und kann es danach beenden.

Dann tritt aber ein Fehler auf. laut AQTime irgendwo in der Kernel32.dll bei AddClipboardFormatListener(). Das nutzen wir selber nicht.

[himitsu]

Es wurden viele stellen verändert.
Das OldCreateOrder wurde in Delphi 11 oder 10 abgeschafft.

ganz früher war OnCreate im Constructor,
später im AfterConstruct, aber beim Upgrade alter Forms wurde OldCreateOrder=True gespeichert und wenn es True ist, dann doch im Contructor
und jetzt ist es immer AfterConstruct ... also alte Forms, wo es "bisher noch ging, aber der Entwickler seit 15 Jahren vergessen hat das entlich mal zu bereinigen", da kann es jetzt knallen.


Und dann auch am PopupPatent
oder sonstwo

[stalkingwolf]

Zitat von himitsu:

Es wurden viele stellen verändert.
Das OldCreateOrder wurde in Delphi 11 oder 10 abgeschafft.

danach habe ich einmal gesucht und in keinem unserer Projekte ist es auf True.

[himitsu]

Zitat von stalkingwolf:

Zitat von himitsu:

Es wurden viele stellen verändert.
Das OldCreateOrder wurde in Delphi 11 oder 10 abgeschafft.

danach habe ich einmal gesucht und in keinem unserer Projekte ist es auf True.

Beim Delphi-Upgrade erkennt Delphi das noch fehlende Property, und speichert es als True
der Entwickler kann konnte es auf False stellen.

Im aktuellen Delphi wird das Property gelesen, ignoriert und nicht mehr gespeichert.
Nachteil hast du hier dann, wenn du parallel ein altes Delphi nutzt und es dort beim Laden auf OldCreateOrder=True zurückfällt, weil das Property ja "wieder" fehlt.

[Michael II]

[QUOTE=stalkingwolf;1517904][QUOTE=Michael II;1517902]

Zitat von stalkingwolf:

Und das mit dem "Hänger". Hast du nun mal mit Eurekalog gecheckt, was aufgezeichnet worden ist?

ich habe die Einstellung nicht gefunden.

Die Einstellung findest du natürlich erst, nachdem du Eurekalog installierst hast.

[stalkingwolf]

[QUOTE=Michael II;1517910][QUOTE=stalkingwolf;1517904]

Zitat von Michael II:

Zitat von stalkingwolf:

Und das mit dem "Hänger". Hast du nun mal mit Eurekalog gecheckt, was aufgezeichnet worden ist?

ich habe die Einstellung nicht gefunden.

Die Einstellung findest du natürlich erst, nachdem du Eurekalog installierst hast.

das erklärt es
Ich hab es eingebunden und aktiv.

Nun erhalte ich im Programm die Meldung "Datenbank ist nicht zugewiesen." Mit der Option das Programm zu beenden und mir eine Meldung anzuzeigen.
Bei allem hängt danach das Programm komplett und nichts passiert mehr.

[Jasocul]

Zitat von stalkingwolf:

Nun erhalte ich im Programm die Meldung "Datenbank ist nicht zugewiesen." Mit der Option das Programm zu beenden und mir eine Meldung anzuzeigen.
Bei allem hängt danach das Programm komplett und nichts passiert mehr.

Das klingt für mich nach zwei Fehlern.
DB nicht zugewiesen muss nicht bedeuten, dass die Meldung den korrekten Fehler meldet. Es könnte auch sein, dass eine Einstellung nicht korrekt ist und erstmal versucht wird, an die DB zu kommen (Programm hängt).
Wenn die Zuweisung der DB oder deren Einstellung im OnCreate gemacht wird: Siehe den Beitrag von himitsu über OldCreateOrder.
In Kombination dieser Fehler könnte das beschriebene Verhalten entstehen.

Windows-Messaging-Probleme würde ich allerdings auch nicht ausschließen. iirc kann da auch die exzessive Nutzung von ProcessMessages mit reinspielen.