[VisualCLX] Form auf TabSheet wird in falscher Farbe dargestellt

MisterBum83 · Beiträge: 245 Erhaltene Danke: 2 WIN XP Delphi 6

Hallo zusammen,

ich habe auf einem Form1 ein Tabsheet TS_1. Auf diesem TabSheet wird zur Laufzeit ein Form2 dargestellt.
Jedoch hat dieses Form2 und auch die Panels darauf nicht die Farbe des TabSheets, d.h. das TabSheet aktualisiert die Farbe durch das Manifest in ein XP-Weiss, jedoch das Form2 bleibt in einem unschönen grau clBtnFace.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

  if not (assigned(Form2)) then
    begin
      { Formular erzeugen }
      Form2 := TForm2.Create(self);
      { Formular in das TabSheet "einkleben" und anzeigen }
      Form2.Parent := Form1.TS_1;
      Form2.Show;
    end;

Warum passt sich die Farbe des Form2 nicht an die Farbe TabSheet an?

Gruß und Dank
MisterBum

jaenicke · Verfasst: Mo 04.04.11 13:41

Eine solche Frickelei ist so schlicht nicht vorgesehen. ;-)

Wahrscheinlich musst du das Theming für das Formular selbst manuell aktivieren, das müsste SetWindowTheme oder so sein, glaub in der Unit UxTheme oder so.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme