10.2: Geräteübergreifende Anwendung und Windows

[jaenicke]

Das ist bei mir unter Windows 10 ebenfalls so. Modus steht in dem Projekt auf PlatformBehavior und die gleiche Exe zeigt unter Windows 10 das beschriebene Verhalten und unter Windows 7 die Navigation voll ausgeklappt.

Stellt man z.B. Drawer ein, verhält sich die Anwendung unter Windows 7 und 10 gleich.
Stellt man Panel ein, ist die Navigationsleiste immer eingeblendet wie unter Windows 7, egal ob unter 7 oder 10.

Für das unterschiedliche Verhalten bei PlatformBehavior verantwortlich sind diese Zeilen in TCustomMultiView.DefinePlatformBehaviourPresenter:

Delphi-Quellcode:

  case GetDeviceClass of
    [..]
    TDeviceInfo.TDeviceClass.Desktop:
      if TOSVersion.Check(10) and (TOSVersion.Platform = TOSVersion.TPlatform.pfWindows) then
        Result := TMultiViewNavigationPanePresentation
      else
        Result := TMultiViewDockedPanelPresentation;

Unter Windows 10 wird auf NavigationPane gestellt, sonst auf Panel.