TPageControl ändern der BevelKind bei TabPosition tbLeft

[completestranger]

Zitat von Uwe Raabe:

Oder weglässt.

Ja, ich habe den "Trick" gefunden der hier verwendet wird.

Ich zitiere aus https://docs.microsoft.com/en-us/win...control-styles:

Zitat:

The following styles can be modified after the control is created.

...
TCS_VERTICAL

Der Trick hierbei ist anscheinend, dass bei CreateWindowEx() der BorderStyle, etc. bereits festgelegt werden. Wenn man nun zur Laufzeit via

Code:

var
  TempStyle: NativeInt;
begin
  TempStyle := GetWindowLong(PCContent.Handle, GWL_STYLE);
  TempStyle := TempStyle or TCS_VERTICAL;
  SetWindowLong(PCContent.Handle, GWL_STYLE, TempStyle);
end;

den Style auf TCS_VERTICAL ändert, dann behält dieser den ursprünglichen BorderStyle bei und es sieht schön (für den Geschmack des Projektleiters) aus.

Und ja, wenn es komplett neu gezeichnet bzw. neu erstellt wird, z. B. durch ReCreate, dann sieht es hier auch wieder bescheiden aus.

Ich habe einen Screenshot für TabPosition := tpLeft zur Design- und Laufzeit angehängt.