Supprimer la bordure d'un TPageControl

Bonjour,
dans la méthode OnDrawTab d'un contrôle TPageControl, on a bien accès à la zone de dessin, ce qui permet de personnaliser les onglets mais je n'arrive pas à me débarrasser du trait de contour, qui manifestement n'est pas dans la zone de dessin.
Est-ce que quelqu'un sait comment faire ?
Pour un control TPanel, on peut modifier des propriétés du genre

Code:

---

1 2 3 4 5

BorderWidth=0; BevelKind=bkNone; BevelWidth=0; BevelOuter=bvNone; BevelInner=bvNone;

---

mais là ?
merci à vous

Bonjour,

La propriété Style peut prendre comme valeur FlatButton, ce qui a pour effet de supprimer le cadre.
Cependant je ne sais pas si c'est ce que tu cherches !

J'en profite pour te poser une autre question...
Est-ce que c'est parce qu'il s'agit de contrôles natifs windows que l'on ne peut pas redéfinir la méthode Paint sur les TabSheet ?
De même pour les boutons de la classe TButton ? Je me suis fait une classe TMyButton descendant de TCustomControl rien que pour pouvoir mettre de la couleur sur un bouton ...
Marc

Bonjour,

Les TabSheet sont des descendants de TWinControl.
TWinControl ne fournit pas de Canvas pour dessiner et par la même de fonction Paint.
Pour pouvoir redessiner un TabSheet, il faudrait que celui hérite de TCustomControl.
Je ne peux pas t'en dire plus car je n'ai pas étudier plus avant le phénoméne.
Tu constateras que le TPageControl hérite d'un TCustomPageControl qui te fournit un Canvas.

Pour modifier le style d'un composant descendant de TWinControl tu peux utiliser le code suivant (API Windows):

Code:

---

1 2 3

::SetWindowLongPtr(PageControl1->Handle, GWL_EXSTYLE, ::GetWindowLongPtr(PageControl1->Handle,GWL_EXSTYLE) & ~WS_EX_WINDOWEDGE);

---

Le code ci-dessus à pour effet de rendre les bordures flat. Pour enlever completement les bordures il faut que tu ailles à la pêche dans le msdn, pour voir comment piloter les Style (GWL_STYLE) et les styles étendus (GWL_EXSTYLE).

J'ai été un peu vite.
Je précise qu'il faut mettre ce code dans le FormCreate et pour faire du pur API Windows le code est le suivant:

Code:

---

1 2 3 4 5

::SetWindowLongPtr(hWnd, GWL_EXSTYLE, ::GetWindowLongPtr(hWnd,GWL_EXSTYLE) | WS_EX_STATICEDGE); ::SetWindowPos(hWnd, NULL, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE | SWP_NOZORDER | SWP_FRAMECHANGED);

---

Mais dans le cas d'un tab control le 1er cas suffit.

Marc
:D

Hum ... Marc semble content mais chez moi ça pas marche ! :)

Code:

---

1 2 3 4 5 6 7

void __fastcall TForm1::FormCreate(TObject *Sender) { ::SetWindowLongPtr(PageControl1->Handle, GWL_EXSTYLE, ::GetWindowLongPtr(PageControl1->Handle,GWL_EXSTYLE) | WS_EX_STATICEDGE); } //---------------------------------------------------------------------------

---

?? what's wrong ??

mais bon, j'ai mis un Tpanel sur mes onglets et je redessine les boutons de navigation.
Marc

Je comprend mieux ! :wink:

Ce qui ne fonctionne pas ce sont les styles utilisés. Seul le premier est compatible avec un TabControl (WS_EX_WINDOWEDGE) le second est pris d'un autre exemple, il sert à illustrer l'appel complet à l'API Windows.
Perso j'utilise le premier cas dans un projet et cela fonctionne.

D'un controle à l'autre les styles peuvent différer, je n'ai jamais trouver de doc exhaustive sur le sujet alors il faut tatonner un peu. La liste complete des styles se trouve sur le site du Msdn (Microsoft Developper Network).