Cambiar de pagina de un TPageControl

[mrmanuel]

*DFM

object Form1: TForm1
Left = 146
Top = 111
Width = 803
Height = 498
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnActivate = FormActivate
PixelsPerInch = 96
TextHeight = 13
object PageControl: TPageControl
Left = 5
Top = 36
Width = 779
Height = 233
ActivePage = Pag_Validar_Clave
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 0
object Pag_Direccion: TTabSheet
Caption = 'Dirección'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Pag_Permiso: TTabSheet
Caption = 'Permiso'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ImageIndex = 2
ParentFont = False
end
object Contrato: TTabSheet
Caption = 'Contrato'
ImageIndex = 2
end
object Pag_Validar_Clave: TTabSheet
Caption = 'Clave Test'
ImageIndex = 3
end
end
end




*.pas


unit borrar;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls;

type
TForm1 = class(TForm)
PageControl: TPageControl;
Pag_Direccion: TTabSheet;
Pag_Permiso: TTabSheet;
Contrato: TTabSheet;
Pag_Validar_Clave: TTabSheet;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);
begin
//Mostramos la paguina que nos interesa del PageControl
PageControl.ActivePageIndex:= 0;


//PageControl.Refresh;
//PageControl.ActivePage. := 0;// .Name:= 'Pag_Direccion';
//Pages[0].Visible:= True; // .Show; //.Pag_Direccion;

end;

end.