Hola a todos, y un gran saludo.
Estuve buscando por el foro, sobre un modo, específico, para llamar un procedimiento declarado en un Form, desde otro form, y la verdad, no he podido encontrar específicamente un post, que me ayude a resolver el pequeño problema que me ocupa.
Haber si puedo explicarlo de forma clara.
En el Form1, tengo declarado un procedimiento, que, en tiempo de ejecución, crea un nuevo Tab en el formulario.
En el Form2, necesito poner un botón, que llame a ese procedimiento de crear un Tab en tiempo de ejecución, YA declarado en el form1, como si ese procedimiento, ubiese sido llamado de forma nativa desde su propio Form.
De este modo, para lograrlo, he intendo con esto, tomando elgunos elementos que he visto en los diferentes Post, que he estado visitando en búsqueda de ayuda:
En el Form1, tengo mi procedimiento para crear este nuevo Tab, en tiempo de ejecución:
Código:
procedure TForm1.NewTab1Click(Sender: TObject);
begin
NewTab := TTabSheet.Create(Self); //Se crea la nueva pestaña
NewTab.Caption := ' Tab ' + IntToStr(PageControl1.PageCount + 1);
end;
Entonces, cada vez que en ese mismo Form1 clickeo esta opcion, se creará en tiempo de ejecución el nuevo Tab.
Hasta ahí, no habría problema. Todo funciona perfectamente, puesto que el procedimiento está escrito y declarado en el Form1 y todo de momento, sucede en este mismo Form.
Ahora bien, en el Form2, quiero poner un botón, que haga lo mismo, pero aplicabdole esta acción, al mismo Form1, es decir, que si ejecuto este procedimiento en el Form2, el Form1 cree un nuevo Tab.
Que he tratado de hacer entonces en el Form2:
Código:
procedure TForm2.BtnNewTabForm1Click(Sender: TObject);
begin
begin
Form1:= TForm1.Create(application);
Form1.ShowModal;
Form1.NewTab1Click(sender);
Form2.Close;
El programa que hace entonces:
Crea una nueva del Form1 (adicional a la que ya hay), y efectivamente crea en tiempo de ejecución un nuevo tab, y el Form 2 se cierra.
Al cerrar este nuevo Form1, se crea una Excepción, que hace referencia a lo siguiente:
EInvalidOperation with message Cannot Focus a disable or invisible Window'.
Comentarios finales:
1) No quisiera que en tiempo de ejecucion, se cree una nueva instancia del Form1. Finalmente este ya está anteriormente abierto. No deseo crear otro.
2)¿Es posible sobre el Form1 que ya está abierto en tiempo de ejecución, se ejecute este procedimiento?
3) Qué genera dicha excepcion al intentar cerrar esta nueva instancia del form1 creado?
Ojalá pudiesen ayudarme. Es de momento, lo ultimo que me faltaría, para poder entregar este proyecto.
Mil gracias, y un gran saludo.
Julián.