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.