Pagecontrol

Signaler
Messages postés
3
Date d'inscription
lundi 31 mars 2003
Statut
Membre
Dernière intervention
1 mai 2003
-
Messages postés
787
Date d'inscription
samedi 8 juin 2002
Statut
Membre
Dernière intervention
7 juin 2007
-
Bonjour

j'aimerais savoir comment mettre les captions des tabsheet
avec chacun une police et couleur différentes

Merci de vos réponses
A+

2 réponses

Messages postés
308
Date d'inscription
mardi 11 juin 2002
Statut
Membre
Dernière intervention
26 septembre 2008

pour ma part soit je créerais un nouveau composant pour gérer cette situation ou j'opterais pour une méthode de remplacement des plus simpliste:

je placerais des StaticText dans les Tabs et je les ajusterais pour qu'ils se centrent au tabs ,j'ai donc accès au couleurs du text ,fonts,etc...et je redonne le controle au tabcontrol avec une procédure qui la renvoi au controle parent...

procedure TForm1.StaticText1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
TabControl1.TabIndex:=1;
//ou d'un autre façon
end;
Messages postés
787
Date d'inscription
samedi 8 juin 2002
Statut
Membre
Dernière intervention
7 juin 2007
1
Moi je mettrais plutôt PageControl.OwnerDraw à true, puis je peindrais les Caption des Tab dans OnDrawTab ... Voir l'aide de Delphi pour plus de détails (ou sur google, il y a pas mal de tutoriaux sur les composants dessinés par l'utilisateur)