Ver Mensaje Individual
  #8  
Antiguo 22-06-2007
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
A ver que les parece esto. Llamemos frmPrincipal, frmReserva y frmClientes a los formularios principal, de reservas y de búsqueda de clentes respectivamente.

frmPrincipal es MDI, frmReserva es MDIChild y frmClientes es normal.

Cuando desde una reserva (frmReserva) abrimos una ventana de clientes hacemos esto:

Código Delphi [-]
with TfrmClientes.Create(Self) do
  Show;

Self.Enabled := false;

Esto es, inhabilitamos todo el formulario de reserva, lo que impedirá interactuar con él hasta que alguien no lo habilite de nuevo. Este alguien será el frmReserva en su evento OnClose:

Código Delphi [-]
Action := caFree;

if Owner is TForm then
begin
  TForm(Owner).Enabled := true;
  TForm(Owner).SetFocus;
  TForm(Owner).BringToFront;
end;

De todas formas y como comentario al margen, se me hace una interfaz confusa. Puede haber no sólo varias reservas abierta a un tiempo, sino también varias ventanas de búsqueda y no sé cómo hará el usuario para saber cuál corresponde a cuál.

// Saludos
Responder Con Cita