TPageControl sin borde

[ecfisa]

Hola José.

No sé si estoy interpretando bién tu consulta, pero por lo que entendí podes poner la propiedad Style del TPageControl en tsButtons o tsFlatButtons.

Saludos.

[Jose Roman]

gracias por responder, pero me refiero es al borde externo del componente, vi algo en internet, pero segun veo afecta a todos y solo deseo que sea para uno en especifico, lo que encontre es esto aunque realmente no se si funciona:

Código Delphi [-]
unit Unit1;

interface

uses
  ...,
  CommCtrl;

type
  TPageControl = class(ComCtrls.TPageControl)
  private
    procedure TCMAdjustRect(var Msg: TMessage); message TCM_ADJUSTRECT;
  end;

  TForm1 = class(TForm)
    ...
  end;

...

procedure TPageControl.TCMAdjustRect(var Msg: TMessage);
begin
  inherited;
  if Msg.WParam = 0 then
    InflateRect(PRect(Msg.LParam)^, 4, 4)
  else
    InflateRect(PRect(Msg.LParam)^, -4, -4);
end;

...

end.

[ecfisa]

Hola de nuevo.

Perdón pero sigo sin entender cuál es el efecto que deseas.

Por ejemplo, poniendo la propiedad Style = tsButtons obtengo este resultado:



Que no deja bordes externos en el componente TPageControl, pero no se si es a lo que te referis.

Saludos.