Foros Club Delphi - Foco en PageControl

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Foco en PageControl (https://www.clubdelphi.com/foros/showthread.php?t=69218)

Foco en PageControl

Buenas tardes, les quisiera hacer una consulta..resulta que estoy creando por código un page control ,con dos Tabshett y adentro de esos dos TTabSheet creo un dbgrid,mi pregunta es la siguiente cuando yo entro al form donde se encuntra el page control, él foco no se encuntra en el dbgrid...y tengo que cliquear alguna de las celdas para poder moverme en las celdas de ese dbgrid... como puedo hacer para que al entrar en el page control el foco se encuntre directamente en el dbgrid...aclaro que probé en hace DBGDatos.SetFocus,pero me tira error...

Código Delphi [-]begin
  MiPageControl := TPageControl.Create(Self);
  MiPageControl.Parent := Self;
  MiPageControl.Align:= AlClient;
  DBGDatos:= TDBGrid.Create(self);
  DBGDatos1:= TDBGrid.Create(self);
  Hoja1:= TTabSheet.Create(MiPageControl);
  Hoja2:= TTabSheet.Create(MiPageControl);
  with Hoja1 do
  begin
       PageControl := MiPageControl;
       DBGDatos.Parent := Hoja1;
       DBGDatos.Top:= 60;
       DBGDatos.Width:= 600;
       DBGDatos.DataSource:= self.DataSource1;
       self.ADODataSet1.Active:= true;
      end;
   with Hoja2 do
   begin
       PageControl := MiPageControl;
       DBGDatos1.Parent := Hoja2;
       DBGDatos1.Top:= 60;
       DBGDatos1.Width:= 600;
       DBGDatos1.DataSource:= self.DataSource1;
       self.ADODataSet1.Active:= true;
   end;
     MiPageControl.ActivePage:= Hoja1;
     MiPageControl.ActivePage:= Hoja2;
 end;

Prueba poniendo la propiedad TabStop de los TabSheet en false.

// Saludos

Foco en PageControl

Gracias Román pero no hace nada poner la propiedad TabStop en false; sigue como congelado el dbgrid hasta que no le doy clic en alguna de sus celdas....

Hola,

Aparentemente me funciona si pongo el DBGDatos.SetFocus en el evento OnEnter del TabSheet que contiene al DBGrid.

// Saludos

Hola Valeria.
Una forma podría ser usando el evento OnChanging del TPageControl.

Código:

...

type

  TForm1 = class(TForm)

  private

     procedure MiPageControlChanging(Sender: TObject;

        var AllowChange: Boolean);

  public

     procedure FormCreate(Sender: TObject);

     procedure FormActivate(Sender: TObject);

  end;

var

  Form1: TForm1;

  MiPageControl: TPageControl;

  DBGDatos,DBGDatos1: TDBGrid;

  Hoja1,Hoja2: TTabSheet; 



implementation



procedure TForm1.MiPageControlChanging(Sender: TObject;

  var AllowChange: Boolean);

begin

  case TPageControl(Sender).TabIndex of

    0: DBGDatos.SetFocus;

    1: DBGDatos1.SetFocus;

    3: // otro TTabSheet... 

    4: // ...

  end;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

  MiPageControl := TPageControl.Create(Self);

  with MiPageControl do

  begin

    Parent := Self;

    Align:= AlClient;

    OnChanging:= MiPageControlChanging;

  end;

  DBGDatos:= TDBGrid.Create(self);

  DBGDatos1:= TDBGrid.Create(self);

  Hoja1:= TTabSheet.Create(MiPageControl);

  Hoja2:= TTabSheet.Create(MiPageControl);

  with Hoja1 do

  begin

    PageControl := MiPageControl;

    DBGDatos.Parent := Hoja1;

    DBGDatos.Top:= 60;

    DBGDatos.Width:= 600;

    DBGDatos.DataSource:= DataSource1;

    ADODataSet.Active:= true;

  end;

  with Hoja2 do

  begin

    PageControl := MiPageControl;

    DBGDatos1.Parent := Hoja2;

    DBGDatos1.Top:= 60;

    DBGDatos1.Width:= 600;

    DBGDatos1.DataSource:= DataSource2;

    ADODataset1.Active:= true;

  end;

end;



{ FormActivate, para que aparezca con foco en DBGDatos al entrar al Form }

procedure TForm1.FormActivate(Sender: TObject);

begin

  with MiPageControl do

  begin

    ActivePage:= Hoja1;

    DBGDatos.SetFocus;

  end;

end;

end.

Las variables las trabajé como globales y usé dos DataSets distintos a fin de probar el ejemplo.
Una cosa mas, el uso del parámetro self, es innecesario en este caso.

Saludos.

Gracias Ecfisa!!! ahora si funciona como yo queria,muchisiiiimas gracias!!