FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
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); 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. |
#2
|
||||
|
||||
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?
|
#3
|
||||
|
||||
Cita:
comctrls.pas
Pero nada te impide que lo reescribas y lo compiles para que puedas cambiarle su funcionalidad. Saludos. |
#4
|
||||
|
||||
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?
|
#5
|
||||
|
||||
Cita:
Saludos |
#6
|
||||
|
||||
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 20:33:48. |
#7
|
||||
|
||||
Gracias escafandra. Ahora mismo lo veo. Ya puedes borrarlo si quieres.
|
#8
|
||||
|
||||
Cita:
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
OnChange | elturu15 | Varios | 4 | 03-05-2011 17:51:54 |
Evento onChange en TImage | MAXIUM | Gráficos | 3 | 08-03-2010 03:02:11 |
evento onchange de un dbedit | ercrizeporta | Varios | 1 | 31-10-2006 14:09:38 |
Findfirst funciona cuando quiere | rfernandez | API de Windows | 3 | 17-03-2005 11:35:43 |
OnChange en TListBox | fedecm | Varios | 1 | 30-06-2004 17:24:32 |
|