oks, pego parte del codigo:
tengo, ahora, dos tres ventanas, una con formstyle=fsMDIForm, y dos con fsMDIChild
las llamo:
Código Delphi
[-]
procedure rpvLaunch(rpvtwin:integer);
begin
if (rpvtwin=0) AND (rpvWin[0]=FALSE) then
begin
Application.CreateForm(TrpvGenre, rpvGenre);
rpvWin[0]:=TRUE;
end
else if (rpvtwin=1) AND (rpvWin[1]=FALSE) then
begin
Application.CreateForm(TrpvAddMedium, rpvAddMedium);
rpvWin[1]:=TRUE;
end;
end;
para ventana 1:
rpvlaunch(0);
para ventana 2:
rpvlaunch(1);
la variable bandera se supone que es para no lanzar la ventana dos veces.
en el OnQueryClose de las ventanas hijas:
Código Delphi
[-]
rpvWin[0]:=FALSE;
rpvGenre.Free;
Probe todo lo que me sugerieron y siguen esos dos problemas.
Gracias por su ayuda!.