TPageControl ändern der BevelKind bei TabPosition tbLeft

[completestranger]

Da wurde ich falsch verstanden, glaube ich. Ich bin der Meinung, dass eben TPageControl eine normale SysTabControl32 ist. Und bei einer normalen SysTabControl32 das eben nicht passiert.
Sondern VCL irgendwas noch hinzufügt.

Das TPageControl ist ein SysTabControl32.

Code:

TPageControl = class(TCustomTabControl)

...

procedure TCustomTabControl.CreateParams(var Params: TCreateParams);
...
begin
...
CreateSubClass(Params, WC_TABCONTROL);
...

Und WC_TABCONTROL ist in Winapi.CommCtrl.pas als

Code:

const
  {$EXTERNALSYM WC_TABCONTROL}
  WC_TABCONTROL = 'SysTabControl32';

definiert.

Ich dachte immer:
Die Controls die von TWinControl abstammen sind alles native Windows Controls.
In Vcl.ComCtrls sind alles native Common Controls aus ComCtl32.dll.
TPageControl = SysTabControl32
TToolBar = ToolbarWindow32
TMonthCalendar = SysMonthCal32
...