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.

[delphi.com.ar]

Primero quiero recomendarte que uses la etiqueta [delphi] o en su defecto [code] para publicar código en el foro.
Ahora, te comento que el ejemplo me funciona correctamente, mi única duda es ¿Qué versión de los CommonControls tienes instalada?...

[mrmanuel]

Siento lo del código pero no se como se usa la etiqueta Code, la he probado y no saca nada nuevo.

y respecto a la version del CommonControls ¿donde puedo sacar ese dato??

ha y claro que funciona, he borrado los datos que tendria que mostrar y por lo tanto no se puede comprobar. los reenvio

[delphi.com.ar]

Puedes verlo en la versión de la dll comctl32.dll... ¿Qué sistema operativo usas?

[jachguate]

Empezado por mrmanuel

Siento lo del código pero no se como se usa la etiqueta Code, la he probado y no saca nada nuevo

Podes aprender a usar la etiqueta [ code ] siguiendo el vínculo de mi firma.

de la misma forma se usan las nuevas etiquetas [ delphi ] y [ sql ]

Código Delphi [-]
  Begin
    ShowMessage('Esto se ve mucho mejor');
  End;

Hasta luego.

[mrmanuel]

hola y gracias a todos

creo que ya he localizado el problema, en el evento Show del TabSheet, paso el foco a un determinado campo, varia segun el TabSheet.

¿puede ser por eso?