Acción inesperada de ListBox->ItemIndex

[Ziara]

Hola a tods! tengo una dudilla...

tengo un Form1 en el cuál tengo un botón, mediante el evento OnClick llamo a:

Form2->ShowModal();

que me muestra un segundo formulario Form2 que contiene un ListBox1, en el Unit2.cpp tengo:

void __fastcall TForm2::FormCreate(TObject *Sender)
{
 MiClass * mio = new MiClass ();
 mio -> GetAlgo();
 delete mio
}

Con esto, se supone que cuando clickeo al boton del Form1 y me muestra Form2 directamente llama al método GetAlgo de la clase MiClass que está contenido en un Unit3

y en el Unit3.cpp:

...
for (        )
{
 cadena = .....
Form2->ListBox1->Items->Add(cadena);
}
/*
int num=Form2->ListBox1->ItemIndex;

if (num==1)
{
 ShowMessage("algo");
}
if (num == 2)
{
}
...
*/

El código tal cual (sin ejecutar el código comentado), se ejecuta como espero:
1. ejecuto el .exe
2. muestra el Form1
3. click al botón
4. muestra el Form2 con el ListBox1 rellenado de los items que le indico:
Form2->ListBox1->Items->Add(cadena);

Pero cuando lo ejecuto todo (incluyendo lo comentado), se ejecuta:
1. ejecuto el .exe
2. muestra ShowMessage("algo");
3. muestra Form1.....

como es posible?? Algo estoy pasando por alto, pero no se qué es.

Lo que quiero hacer es que al clickear el botón de Form1 me muestra un Form2 con los items ya mostrados en el ListBox y que, al seleccionar alguno de ellos, me muestre la información que yo quiera en el Form1.

gracias, espero haberme explicado bien.

[[escafandra]]

No termino de entender exactamente, pero voy a tratar de responder.

Si en Unit3 tu código mostrado no está implementado como funciones miembro de la clase MiClas (que creo entender que es Form2) entonces puede ejecutarse fuera de MiClas. Yo implementaría en el constructor de MiClas la carga del ListBox. De esta forma ese código se ejecuta en el momento de crear esa clase.

[Ziara]

Hola,

únicamente en el Unit2.cpp tengo

 void __fastcall TForm2::FormCreate(TObject *Sender)
{
 MiClass * mio = new MiClass ();
 mio -> GetAlgo();
 delete mio
}

ya que cuando se muestra el Form2 quiero que llame directamente a la función GetAlgo(); de la clase MiClass.

Si en Unit3 tu código mostrado no está implementado como funciones miembro de la clase MiClas

Si que lo está sería asi no?

 void MiClass::GetAlgo()
{

...
   for (        ) 
   {
    cadena = .....
    Form2->ListBox1->Items->Add(cadena);
   }
   /*
   int num=Form2->ListBox1->ItemIndex;

   if (num==1)
   {
    ShowMessage("algo");
   }
   if (num == 2)
   {
   }
...
}

Yo implementaría en el constructor de MiClas la carga del ListBox. De esta forma ese código se ejecuta en el momento de crear esa clase.

En el Unit3.cpp el ListBox está dentro de un for, ya que voy a mostrar varias iteraciones (las del for) si colocara la carga del ListBox en Form2 sólo me mostraría la última iteración.

No sé todavía qué pasa, si alguien me puede decir algo...

[[escafandra]]

No entiendo la utilidad de tu codigo, supongo que es un experimento.
Creo que tu problema esta en cargar el ListBox (bucle de Add) en el evento OnCreate del Form2 (puesto que aquí llamas a getAlgo que tiene el bucle de carga del ListBox). OnCreate se genera al crearse una ventana, aunque todavía no la veas.

Experimenta lo siguiente aunque para ello MiClass debe ser un formulario:
No utilices Form2.
En el evento de OnClick de Form1 coloca el codigo:

MiClass * mio = new MiClass ();
mio->ShowModal();
mio->GetAlgo();
delete mio;

Y en GetAlgo() coloca el código que tenías.

De esta forma te aseguras que "mio" esta creado y visualizado de forma modal y luego GetAlgo se encarga de la tarea que le encomendaste. Esto funcionará como tu quieres.

Si Form2 te resulta necesario, entonces, tu código no debería mostrar el mensage desde GetAlgo, sino desde el evento OnChange del ListBox.

Yo utilizo un truco cuando no me queda mas remedio que colocar código que puede ejecutarse antes de visualizar una ventana y es colocar un Timer y en el evento OnTimer coloco ese código "sensible". OnTimer se produce cuando el Form que lo contiene ya es visible. Pero trato de no hacer nunca esto porque me parece "chapucero".

Espero servirte de ayuda.
Saludos.