Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 12-01-2012
ToritoCapo ToritoCapo is offline
Miembro
NULL
 
Registrado: feb 2011
Posts: 14
Poder: 0
ToritoCapo Va por buen camino
No funciona OnChange cuando uso ActvePageIndex

Hola Amigos !!!!!

En un TPageControl cuando el usuario cambia de pestañas se activa el evento OnChange que realiza una acción determinada.

El problema es que cuando uso la propiedad ActivePageIndex el evento OnChange no se activa.

Estuve buscando un poco y encontré este código que puede llegar a servir, pero.... no lo entiendo, me sería muy útil que estuviera en C++

Código:
type
   THackPageControl = Class(TPageControl) ;

procedure SetAsActivePage(tabSheet : TTabSheet) ;
begin
   if tabSheet.PageControl.ActivePage <> tabSheet then
   begin
     If THackPageControl(tabSheet.PageControl).CanChange then
     begin
         tabSheet.PageControl.ActivePage := tabSheet;
         THackPageControl(tabSheet.PageControl).Change;
     end
     else Abort;
   end;
end;
Saludos.
Responder Con Cita
  #2  
Antiguo 12-01-2012
Avatar de TiammatMX
TiammatMX TiammatMX is offline
Miembro
 
Registrado: jun 2006
Ubicación: Universo Curvo\Vía Láctea\Sistema Solar\Planeta Tierra\América\México\Puebla\Heróica Puebla de Zaragoza\Jardines de San Manuel\Home
Posts: 746
Poder: 18
TiammatMX Va camino a la fama
Thumbs up

Cita:
Empezado por ToritoCapo Ver Mensaje
...En un TPageControl cuando el usuario cambia de pestañas se activa el evento OnChange que realiza una acción determinada...
Te sugiero que no uses el evento OnChange, sino el evento OnChanging, que se ejecuta inmediatamente antes del que usas; con ésto, te aseguro que tendrás el control del componente tal como lo requieres.
__________________
Felipe Eduardo Ortiz López. Delphi programmers does it recursively...

"Un programador, es un creador de universos en donde sólo él es responsable. Universos de complejidad prácticamente ilimitada que se puede crear en forma de programas de ordenador." - Joseph Weizenbaum.

Témele a los profetas... y a aquellos que están listos para morir por "la verdad", ya que como regla general hacen morir a muchos otros con ellos, frecuentemente antes que ellos, y a veces en lugar de ellos. — Umberto Eco
Responder Con Cita
  #3  
Antiguo 12-01-2012
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.220
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por tiammat Ver Mensaje
Te sugiero que no uses el evento OnChange, sino el evento OnChanging, que se ejecuta inmediatamente antes del que usas; con ésto, te aseguro que tendrás el control del componente tal como lo requieres.
Sí que se ejecuta antes que el anterior, pero si utilizas el código siguiente, tampoco salta el evento OnChanging. ;-(

Código Delphi [-]
  PageControl1.ActivePageIndex := 2;
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #4  
Antiguo 12-01-2012
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por ToritoCapo Ver Mensaje
El problema es que cuando uso la propiedad ActivePageIndex el evento OnChange no se activa.

Estuve buscando un poco y encontré este código que puede llegar a servir, pero.... no lo entiendo, me sería muy útil que estuviera en C++
Yo tampoco entiendo el código y desafortunadamente mis conocimientos de C++ Builder son muy escasos. Sin embargo, puedo resolver tu problema en delphi de una manera más clara y que, espero, te sea más sencillo pasarla a C++.

El problema que tienes es que la asignación de la propiedad ActivePageIndex no activa el evento OnChange. Entonces, lo que puedes hacer es derivar una clase de TPageControl en la cual redefinas el método de asignación de dicha propiedad:

Código Delphi [-]
TMiPageControl = class(TPageControl)
private
  procedure SetActivePageIndex(Value: Integer);

published
  property ActivePageIndex write SetActivePageIndex;
end;

implementation

procedure TMiPageControl.SetActivePageIndex(Value: Integer);
begin
  inherited ActivePageIndex := Value;
  if Assigned(OnCange) then OnChange(Self);
end;

Para poder usar esta nueva funcionalidad, tendrías que instalar el nuevo componente y usarlo en lugar del TPageControl original. No obstante, esto puede ser engorroso, sobre todo si sólo lo vas a usar para un PageControl. Entonces, lo que puedes hacer es usar el truco de la clase sobrepuesta (*): en la unidad del formulario que tiene tu PageControl agregas esta definición, antes de la del propio formulario:

Código Delphi [-]
type
  TPageControl = class(ComCtrls.TPageControl)
  private
    procedure SetActivePageIndex(Value: Integer);

  published
    property ActivePageIndex write SetActivePageIndex;
  end;

  TForm1 = class(TForm)
    ...
    PageControl1: TPageControl;
    ...
  end;

Como ves, lo que haces ahora es definir una clase con el mismo nombre que la original. Como la declaración aparece antes que la del PageControl1, el compilador usará la nueva clase. La implementación del método etActivePageIndex es como antes:

Código Delphi [-]
procedure TPageControl.SetActivePageIndex(Value: Integer);
begin
  inherited ActivePageIndex := Value;
  if Assigned(OnChange) then OnChange(Self);
end;

---------------------

(*) Lo que desconozco por completo, es si el truco de las clases sobrepuestas funciona también en C++

// Saludos
Responder Con Cita
  #5  
Antiguo 12-01-2012
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.220
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
No se si te será más fácil traducir esto:

Código Delphi [-]
  THackPageControl = Class(TPageControl)
  protected
    function GetActivePageIndex: Integer;
    procedure SetActivePageIndex(const Value: Integer);
  public
    property ActivePageIndex: Integer read GetActivePageIndex write SetActivePageIndex;
  end;

{ THackPageControl }
function THackPageControl.GetActivePageIndex: Integer;
begin
  inherited;
end;

procedure THackPageControl.SetActivePageIndex(const Value: Integer);
begin
  Self.ActivePage := Self.Pages[Value];;
  Change;
end;

Se trata de definir una clase nueva que deriva de TPageControl y define esa propiedad con los 2 métodos. Si revisas cualquier clase creada en Builder se trata de hacerla igual.

Y luego en lugar de llamar a:;

Código Delphi [-]
   THackPageControl(PageControl1).ActivePageIndex := 1;

utilizas:

Código Delphi [-]
   PageControl1.ActivePageIndex := 1;

AÑADO: Veo que Román se ha adelantado. He de decir que yo tampoco se si este truco funcionará en Builder, pero es fácil que lo compruebas. Yo tampoco tengo conocimientos de Builder así que no te puedo ayudar a "traducirlo".
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.

Última edición por Neftali [Germán.Estévez] fecha: 12-01-2012 a las 18:30:25.
Responder Con Cita
  #6  
Antiguo 12-01-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Otra opción puede ser:
Código:
...

int OldPageIndex = -1;

void __fastcall TForm1::btnChangeIndexClick(TObject *Sender)
{
  OldPageIndex = PageControl1->ActivePageIndex; // guardar índice actual
  PageControl1->ActivePageIndex = 1;            // cambiar índice
  if(PageControl1->ActivePageIndex != OldPageIndex) // ¿ es diferente ?
     PageControl1Change(Sender); //si, llamar evento OnChange
}

void __fastcall TForm1::PageControl1Change(TObject *Sender)
{
 ShowMessage("OnChange");
}

...
Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 12-01-2012 a las 21:45:24. Razón: corrección ortográfica
Responder Con Cita
  #7  
Antiguo 20-01-2012
ToritoCapo ToritoCapo is offline
Miembro
NULL
 
Registrado: feb 2011
Posts: 14
Poder: 0
ToritoCapo Va por buen camino
Gracias a todos por su tiempo, estuve con unos problemas por eso no me pude conectar a responder.

Creo que las soluciones que me brindaron pueden llegar a funcionar todas, pero tengo el inconveniente que no puedo traducirlas.
Además no tengo tantos conocimientos por ejemplo, como para poder crear nuevas clases, perdón soy bastante novato.

Por eso valoro muchísimo lo que hacen todos ustedes por los demás.

Saludos y gracias.
Responder Con Cita
  #8  
Antiguo 21-01-2012
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.195
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
No me había percatado de este tema hasta ahora. Voy a poner mi granito de arena.

En primer lugar y como solución sencilla sería llamar al evento OnChange cada vez que usemos la propiedad ActivePageIndex, de forma "manual". Tiene la ventaja de ser sencillo y comprenderse bien, pero no es automático:
Código:
PageControl1->ActivePageIndex = 3;
PageControl1Change(this);
Una segunda solución mas avanzada y parecida a la solución de roman y Neftali sería reescribir el método SetActivePageIndex de la clase TPageControl. Tiene la ventaja de automatizar el proceso, el evento OnChange se lanzará con cada asignación de ActivePageIndex:

Código:
// Nueva definición de SetActivePageIndex de la clase TPageControl
void __fastcall TPageControl::SetActivePageIndex(const int Value)
{
  if (Value > -1 && Value < PageCount)
    ActivePage = Pages[Value];
  else
    ActivePage = 0;

  if(OnChange) OnChange(this); // Lanzamos el Evento
}

// Asignación de ActivePageIndex 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  PageControl1->ActivePageIndex = 1;
}

// Evento OnChange
void __fastcall TForm1::PageControl1Change(TObject *Sender)
{
  ShowMessage("Eureca");
}

Saludos.
Responder Con Cita
  #9  
Antiguo 24-01-2012
ToritoCapo ToritoCapo is offline
Miembro
NULL
 
Registrado: feb 2011
Posts: 14
Poder: 0
ToritoCapo Va por buen camino
Solucionado

Estimados amigos, este código proporcionado por escafandra funcionó excelente.

Código:
void __fastcall TPageControl::SetActivePageIndex(const int Value)
{
  if (Value > -1 && Value < PageCount)
    ActivePage = Pages[Value];
  else
    ActivePage = 0;

  if(OnChange) OnChange(this); // Lanzamos el Evento
}
Es lo que necesitaba para que se activara el OnChange.

Quiero felicitar y agradecer nuevamente a todos por su gran ayuda !!!!!

Saludos.
Responder Con Cita
  #10  
Antiguo 10-05-2018
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Poder: 19
Angel.Matilla Va por buen camino
Cita:
Empezado por escafandra Ver Mensaje
Una segunda solución mas avanzada y parecida a la solución de roman y Neftali sería reescribir el método SetActivePageIndex de la clase TPageControl. Tiene la ventaja de automatizar el proceso, el evento OnChange se lanzará con cada asignación de ActivePageIndex:
Estaba buscando por el foro, porque tengo el mismo problema que abrió este hilo. Este código de escafandra me parece estupendo por lo sencillo pero he estado mirando por Builder y no encuentro por ninguna parte ese método SetActivePageIndex. ¿Me podéis explicar como implementarlo?
Responder Con Cita
  #11  
Antiguo 10-05-2018
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.195
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Cita:
Empezado por Angel.Matilla Ver Mensaje
Estaba buscando por el foro, porque tengo el mismo problema que abrió este hilo. Este código de escafandra me parece estupendo por lo sencillo pero he estado mirando por Builder y no encuentro por ninguna parte ese método SetActivePageIndex. ¿Me podéis explicar como implementarlo?
No lo encontrarás en Builder porque es un método escrito en delphi:

comctrls.pas
Código Delphi [-]
TPageControl = class(TCustomTabControl)
private
.....
procedure SetActivePageIndex(const Value: Integer);
.....

Pero nada te impide que lo reescribas y lo compiles para que puedas cambiarle su funcionalidad.

Saludos.
Responder Con Cita
  #12  
Antiguo 10-05-2018
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Poder: 19
Angel.Matilla Va por buen camino
Cita:
Empezado por escafandra Ver Mensaje
Pero nada te impide que lo reescribas y lo compiles para que puedas cambiarle su funcionalidad.
Gracias por la respuesta, pero si Builder y yo ya tenemos más de un desencuentro, no te quiero explicat con Delphi. El código que hay antes estápuesto en Builder; ¿bastaría con ponerlo tal cual y compilarlo o habría que hacer algo más?
Responder Con Cita
  #13  
Antiguo 10-05-2018
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.195
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Cita:
Empezado por Angel.Matilla Ver Mensaje
Gracias por la respuesta, pero si Builder y yo ya tenemos más de un desencuentro, no te quiero explicat con Delphi. El código que hay antes estápuesto en Builder; ¿bastaría con ponerlo tal cual y compilarlo o habría que hacer algo más?
Claro. La solución está escrita en C++. Si tienes problemas te mando un proyectito. Ahora no tengo a mano un PC.

Saludos
Responder Con Cita
  #14  
Antiguo 11-05-2018
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.195
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Ahí te subo un ejemplo. No lo dejaré mucho tiempo para no consumir mi espacio de archivos adjuntos.

Saludos.

Última edición por escafandra fecha: 11-05-2018 a las 21:33:48.
Responder Con Cita
  #15  
Antiguo 11-05-2018
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Poder: 19
Angel.Matilla Va por buen camino
Gracias escafandra. Ahora mismo lo veo. Ya puedes borrarlo si quieres.
Responder Con Cita
  #16  
Antiguo 11-05-2018
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.011
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por escafandra Ver Mensaje
Ahí te subo un ejemplo. No lo dejaré mucho tiempo para no consumir mi espacio de archivos adjuntos.
Saludos.
Puedes subir todo lo que necesites al "FTP".
Responder Con Cita
  #17  
Antiguo 11-05-2018
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.195
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Cita:
Empezado por Casimiro Notevi Ver Mensaje
Puedes subir todo lo que necesites al "FTP".
Con algún retoque estético lo subo con fuentes y binario TPageControl_SetActivePageIndex.rar

Saludos.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
OnChange elturu15 Varios 4 03-05-2011 18:51:54
Evento onChange en TImage MAXIUM Gráficos 3 08-03-2010 04:02:11
evento onchange de un dbedit ercrizeporta Varios 1 31-10-2006 15:09:38
Findfirst funciona cuando quiere rfernandez API de Windows 3 17-03-2005 12:35:43
OnChange en TListBox fedecm Varios 1 30-06-2004 18:24:32


La franja horaria es GMT +2. Ahora son las 11:27:49.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi