Cita:
Empezado por daragor
Funciona compañero ecfisa, solo q el objetivo es sobre un mismo form, no sobre todos los forms, es decir yo deberia poder abrir 2, 3, X formularios al mismo tiempo pero nunca el mismo..
|
Hola daragor.
No entiendo... El código precisamente hace eso, evitar que se pueda volver a crear un form ya creado pero no impide que hagas:
Código Delphi
[-]
ShowTheForm(TForm1);
ShowTheForm(TForm2);
ShowTheForm(TForm3);
...
Es decir que podes habrir 1, 2, 3, ..., N forms llamando procedimiento, pero evitará que existan dos instancias del mismo a la vez.
Saludos.