TPageControl sin borde

[Jose Roman]

Hola a todos,

Tengo Delphi 2007 y me gustaria saber como hacer para que no aparezca el borde de un TPageControl en especifico, lo que sucede es que tengo dos de estos componentes pero solo deseo que no tenga los bordes uno de ellos, gracias

[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.