Muchas Gracias
Les agradezco,
solución ganadora, la propuesta por Caro.
Yo realizaba la llamada a mi otro form de esta forma:
procedure TForm1.Button1Click(Sender:TObject);
begin
if not Assigned (Form2) then
Application.CreateForm (TForm2,Form2)
else
Form2.Show;
end;
la form2 es una unit que yo ya la había agregado a la unit form1.
Pero en el form2 no tenía forma de saber que form lo había llamado a no ser que definiera una variable global en el form2.
Así que reemplazé el código por la de Caro y ya funciona.
Gracias
|