Club Builder

[Eddie]

Hola, tengo un problema, estoy haciendo una especie de messenger en cutre y necesito abrir varias ventanas de un mismo form, es decir, para cada contacto abrir una ventana distinta, en delphi he conseguido hacerlo mas o menos asi:


pepe:=TForm2.Create(Application);

pero no soy capaz de hacerlo con el builder utilizando el metodo CreateForm de Application, alguien me podria ayudar??

gracias

[Angel]

Prueba esto:

[Eddie]

Gracias, con ese codigo consegui abrir la ventana, el problema es que no puedo acceder a los componentes de la ventana, es decir, si recibo en mi "Messenger" un mensaje de un usuario, lo lógico es cargar una nueva ventana, y en ella poner el mensaje. En mi form tengo un memo, que crea sin problemas, pero si intento acceder a él desde el nuevo form creado, es decir:

TForm *wee;
Application->CreateForm(__classid(TcontactoFrm),&wee);
wee->Show();
wee->Caption="<<"+Palabra(message,0) + ">> - ASI MSN";
contactoFrm->log->Lines->Add(Frase(message,2));
wee->log->Lines->Add(Frase(message,2));

no me permite escribir en el componente "log" , es el memo que utilizo. Así que estoy en las mismas :'(



la única posibilidad que he encontrado es crear una nueva aplicación para las ventanas de conversación, esto me funciona el problema es que cuando recibo un mensaje me abre la ventana, aunque ya este abierta, es un engorro, ahora estoy liado intentando abrir cada ventana una sola vez, pero tengo problemas con el FindWindow, alguien podria echarme una mano con él?

HANDLE sw=FindWindow(nventana.c_str(),NULL);
if (sw==NULL)
{ //no esta abierta la ventana
AnsiString ruta="ventana.exe "+nickUser+" "+Palabra(message,0)+" "+server->Text;
WinExec(ruta.c_str(),0);
}

el problema es que la variable sw siempre vale NULL, y no se que hacer. Gracias de todas formas

[Eddie]

ya lo consegui

solo era un fallo de logica (habia puesto mal el nombre de la ventana), si alguien le interesa, este es el codigo para comprobar si una ventana esta abierta:


if (FindWindow(NULL,"Caption del form")!=0)
ShowMessage("la aplicación esta abierta!")
else
ShowMessage("la aplicación esta cerrada")

el parametro que pasamos es el nombre que tiene la barra de titulo de la ventana, literlamente, si es "Form1" pues tal cual.


de todas formas me sigo preguntando si hay alguna forma de acceder a los componentes de un Form creado con el CreateForm, alguien tiene alguna idea?

[_Leo]

Prueba cambiando la declaración:

    TForm *wee;

por:

    TcontactoFrm *wee;

Y además de CreateForm puedes crearlos del siguiente modo:

    TcontactoFrm* wee = new TcontactoFrm(Application);

[Eddie]

Muchas gracias funciona perfectamente!

solo tenia que cambiar la clase y listo.

ahora el unico detalle que me queda por resolver es si se podría poner la nueva ventana en la barra de tareas, estoy probando con ShowWindow, de un truco que he visto en Trucomania, pero no consigo hacerlo funcionar.

se puede poner la nueva ventana en la barra de tareas??

y muchas gracias de nuevo
_________________
Time is up, it couldn't last, but there's more things i'd like to do, i'm coming back, to try again, some day maybe i'll wait till then...

No More Lies!!

[_Leo]

Si lo que quieres es que aparezca un nuevo botón en la barra de tareas por cada ventana que creas:

- Pon la siguiente declaración en la clase del Form en cuestion en la parte privada por ejemplo:

[Eddie]

while (0==0) ShowMessage("Gracias!");


Muchas gracias funciona perfectamente!




ahora solo hace falta ponerse a trabajar, muchas gracias de nuevo
_________________
Time is up, it couldn't last, but there's more things i'd like to do, i'm coming back, to try again, some day maybe i'll wait till then...

No More Lies!!

[Kyo]

Buenas,

Esto funciona bien si no cambiamos el padre de la venta con

[Kyo]

Lo siente me he equivocado de post