Ver Mensaje Individual
  #7  
Antiguo 20-02-2007
Avatar de gluglu
[gluglu] gluglu is offline
Miembro Premium
 
Registrado: sep 2004
Ubicación: Málaga - España
Posts: 1.455
Reputación: 23
gluglu Va por buen camino
A raiz de este hilo he seguido investigando.

He conseguido que no me dé error si hago lo siguiente :
Código Delphi [-]
procedure TBookingMain.FormCreate(Sender: TObject);
begin

  ... 
  BookingFrame11 := TBookingFrame1.Create(Self);
  BookingFrame11.Parent  := Self;
  ....
  BookingFrame11.FrameEnter(Self);
 
end;
 
procedure TBookingFrame1.FrameEnter(Sender: TObject);
begin
  ...
  (Sender as TForm).Caption := 'Prueba';
  ...
  MaskEdit1.Text := IntToStr(DaysBetween((Sender as TBookingMain).IBDataSet1DATEARRIVAL.Value, (Sender as TBookingMain).IBDataSet1DATEDEPARTURE.Value));
  ...
end;
... pero claro, en el procedimiendo FrameEnter llamo a algo así como 20 o 30 procedimientos diferentes, cada cual con parámetros distintos en su función 'normal', una vez creado ya el Frame.

... sé que por aquí van los tiros. Román lo explicó bien en el hilo que menciono. Pero no sé darle la mejor solución en mi caso.
__________________
Piensa siempre en positivo !
Responder Con Cita