Pagecontrol mit Tabposition Left erzeugt leere Tabs

[Markus70]

hmm, seltsam.
wenn ich das Projekt ohne Laufzeitthemes kompiliere, habe ich unter Win 7 und unter Win XP den alten Style.
Wenn ich nun das Manifest in den Ordner lege, dann bleibt auf Win 7 der alte Style und auf Win XP hab ich den neuen, der dann wieder leere Tabs zeigt...

Warum kann ich nicht einfach nur dieses eine Pagecontrol im alten Style anzeigen lassen, wenn das Betriebssystem XP oder kleiner ist?

[Bummi]

Doch das geht, Du müsstest Dir nur noch hier im Forum eine der Routinen zur Erkennung des Betriebssytems suchen...

Delphi-Quellcode:

uses uxTheme;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetWindowTheme(PageControl1.Handle,'','');
end;