Ver Mensaje Individual
  #2  
Antiguo 07-03-2007
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 28
Lepe Va por buen camino
Hazle un evento al frame, ya que si son 3 Forms donde los usas tendrías que hacer referencia a los 3 forms... y claro, se acabó el encapsulamiento:

Código Delphi [-]

TFrame1 = classs(...)
private
   FCancelar: TnotifyEvent;

public
   property OnCancelar:TnotifyEvent read FCancelar write FCancelar;

end;

implementation

procedure TFrame1.ButtonCancelar(...);
begin
  if Assigned(FCancelar) then
    FCancelar(self);
end;

Ya en el form donde usas los frames:
Código Delphi [-]
Tform1 = classs(tform);
private
  procedure AlCancelar(Sender:TObject);
end;

procedure TForm1.Form1Create();
begin
   Frame1.OnCancelar := AlCancelar;
end;


procedure TForm1.AlCancelar(Sender:TObject);
begin
  panel1.Enabled := false;
end;

Creo que no me equivocado en nada, debería compilar y ejecutar.

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita