Ver Mensaje Individual
  #3  
Antiguo 11-04-2013
Jose Roman Jose Roman is offline
Miembro
 
Registrado: jul 2006
Ubicación: Colombia
Posts: 364
Reputación: 20
Jose Roman Va por buen camino
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.
Responder Con Cita