Ver Mensaje Individual
  #2  
Antiguo 24-05-2022
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.288
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Los componentes estandard de delphi no traen esa caracteristica, aunque hoy en día es bastante habitual. Sin ir más lejos, como tú comentas, en el propio IDE de delphi, o en los navegadores (que son las que los pusieron de moda).

A partir de ahí tienes 2 opciones:
1) Optar por un componente de terceros que lo implemente.
2) Crear un componente propio que lo implemente.

1) Para la primera tienes muchas opciones, más o menos atractivas.
TMS:
https://www.tmssoftware.com/site/apc.asp
Las JVCL creo recordar que también tienen alguno.
Por supuesto las DevExpress.
Desde GetIt puedes descargar las "ChromeTabs" muy vissuales y atractivas y como su nombre indica "a semejanza" de las que implementa Chrome:
https://getitnow.embarcadero.com/tchrometabs/

Si buscas encontrarás más.

2) Para la segunda opción (por si quieres probar) puedes te puedes aventurar a derivar el componente e intentar implementar.
Al final no debe ser muy complejo, ya que sólo debes "pintar" la cruz, sobreescribiendo con alguno de los procedimientos de pintado (Draw, Paint,...). Y como segundo paso capturar los eventos de ratón para poder cerrarla cuando pulses.

Código Delphi [-]
procedure PageControlCloseButtonDrawTab(Control: TCustomTabControl; TabIndex: Integer;
      const Rect: TRect; Active: Boolean);

Código Delphi [-]
procedure PageControlCloseButtonMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Puedes revisar estas dos implementaciones; No parece muy complejo (en ambas además implementan otros movimientos de ratón, imagino que para cambiar el estado de la imagen):
https://stackoverflow.com/questions/...a-tpagecontrol
https://stackoverflow.com/questions/...phi-xe3-firemo
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita