mettre en gras le caption d'un onglet

Bonjour,
je souhaiterais mettre en gras le caption d'un onglet d'un pagecontrol. les autres restant en normal.
Tabsheet[1].Font.Style :=[fsbold]; met tout le contenu de l'onglet en gras alors que je ne voudrais que le caption
merci pour toute aide
Seb

u, Sur les composants dans l'onglet, il faut mettre ParentFont := False; ++

Tout problème a sa solution... Mais en général, celle que l'on trouve n'est jamais la bonne...

ta proposition met tous les composants de l'onglet en gras sauf le caption. C'est l'inverse que je veux faire.

rectificatif, sur tous les label, si je mets leur parentfont à false, effectivement, ils n'héritent pas du caractère gras de son parent. mais le caption ne se met jamais en gras;
Comment mettre le caption de caption de l'onglet actif et uniquement celui ci, en gras ?

Salut Seb

Pour mettre le Titre de l'onglet actif en gras, je pratique de cette manière :

D'abord, il faut mettre le OwnerDraw de ton TPageControl à True

Ensuite, dans le OnDrawTab, je met ceci :

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  iLeft : integer;
begin
  if Active then
  begin
    PageControl1.Canvas.Font.Style := PageControl1.Canvas.Font.Style + [fsBold];
    iLeft := Rect.Left + 8;
  end
  else
  begin
    PageControl1.Canvas.Font.Style := PageControl1.Canvas.Font.Style - [fsBold];
    iLeft := Rect.Left + 4;
  end;
  PageControl1.Canvas.TextOut(iLeft, Rect.Top + 3, PageControl1.Pages[TabIndex].Caption);
end;


Birdyz

merci pour ces renseignements qui m'éclairent.
mon composant pagecontrol est créé dynamiquement, peux tu m'indiquer comment associer cette procedure au composant créé? je sais le faire pour l'évènement onclick d'un TButton créé dynamiquement, mais pas pour un pagecontrol
Seb

Ok, je suis sur autre chose en ce moment, je le teste dès que possible puis j'accepterai la réponse si c'est bon
merci

OK ça marche, j'ai juste remplacé
"if Active then"
par
"if ( Tabsheet[TabIndex+1].Enabled) then"
pour les besoins de mon appli

Par contre, fsbold provoque l'augmentation de la taille du caption, celui ci dépasse de l'onglet.quelle est la proopriété taille de l'onglet ?

Effectivement pour le if Active. C'est parce que ce code est repris d'un composant que je me suis fais qui dérive de TPageControl. J'ai modifié les lignes ou j'utilisait le self, mais j'ai oublié cette ligne. Pour la taille de l'onglet, c'est effectivement un problème, mais je n'ai pas encore trouvé la solution