Einzelnen Beitrag anzeigen

completestranger

Registriert seit: 7. Okt 2018
25 Beiträge
 
#3

AW: TPageControl ändern der BevelKind bei TabPosition tbLeft

  Alt 12. Feb 2019, 21:40
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
...
  Mit Zitat antworten Zitat