Tabs como FireFox

[Troffed]

Lo conozco, pero lo que he visto no termina de ser exactamente lo que busco.

Gracias.

[droguerman]

asignas a tu PageControl la propiedad OwnerDraw := true y luego pones un código parecido a este en el evento onDrawTab

Código Delphi [-]
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  r, m : TRect;
begin
  CopyRect(r, Rect);
  CopyRect(m, Rect);

  //para el botón
  r.Left := R.Right-GetSystemMetrics(SM_CXMENUSIZE);
  with Control.Canvas do
  begin
      //escribe el texto
      DrawText(Handle, PChar(PageControl1.Pages[tabIndex].Caption ),
               -1, m, DT_LEFT );
      //dibuja el botón
      DrawFrameControl(Control.Canvas.Handle, r, DFC_CAPTION    ,
                       DFCS_CAPTIONCLOSE     );

  end;
end;

ahora lo que tienes que hacer es manejar el evento onKeyUp

[Troffed]

Muchas gracias, voy a intentarlo por ese camino, a ver si puedo en lugar de pintar el botón estandar de cerrar un speedbutton.

Lo único malo es que pierdo la apariencia XP ...

[droguerman]

Empezado por Troffed

Muchas gracias, voy a intentarlo por ese camino, a ver si puedo en lugar de pintar el botón estandar de cerrar un speedbutton.

Lo único malo es que pierdo la apariencia XP ...

no la pierdes si usas los themeservices, te daria un ejemplo pero recien los he descubierto