RXClock y error Control has no parent window

[miguel_e]

Hola, he creado una clase que contiene un objeto TRxClock esta a grandes rasgos es su interface :

 TAlarmClock = class
  private
    FClock : TRxClock;
  public
    constructor Create(aOwner : TComponent);
    destructor Destroy; override;

    procedure OnAlarm(Sender : TObject);
  end;

en el constructor hago lo siguiente:

constructor TAlarmClock.Create(aOwner : TComponent);
begin
   inherited Create;
   FClock := TRxClock.Create(aOwner);
   FClock.Enabled := true;
   FClock.AlarmEnabled := True;
   FClock.OnAlarm := Self.OnAlarm;
end;

bueno cuando voy debugeando y termina de ejecutar la ultima instruccion del constructor me sale el siguiente error "class EInvalidOperation with message 'Control'' has no parent window", no se si queda claro, a mi clase en otro metodo le paso la hora a la que va ejecutar la alarma y lo que quiero que haga es que en el evento OnAlarm ejecute cierto codigo. Por que sale este error?????, que es lo que lo provoca ?????, como lo elimino, porque no me ejecuta el evento??????, muchas gracias por sus tiempos

saludos
miguel_e

[paldave]

Te faltaría poner:

Código Delphi [-]
FClock.Parent:=Self;

para que se le asigne una ventana al reloj. Si no quieres que se vea pones:

Código Delphi [-]
FClock.Visible:=False;

Saludos.

[miguel_e]

la clase TRxClock (quizas sea la version que tengo), no tiene ninguna propiedad llamada Parent la que contine es una que se llama ParentWindow y que recibe un parametro de tipo HWND, es esta a la cual le debo asignar el formulario????

saludos
miguel_e

[paldave]

El error también puede estar en como creas y derivas tu componente.
No especificas en la declaración de qué componente lo derivas.
Además el constructor Create debe ser sobreescrito para luego poder llamarlo con inherited:

Código Delphi [-]
TAlarmClock = class (TComponent)
  private
    FClock : TRxClock;
  public
    constructor Create(aOwner : TComponent);override;
    destructor Destroy; override;

    procedure OnAlarm(Sender : TObject);
  end;

Prueba con esto y me cuentas.

[miguel_e]

quedo de esta manera:

Código Delphi [-]
TAlarmClock = class(TComponent)
  private
    FClock : TRxClock;
  public
    constructor Create(aOwner : TComponent); override;
    destructor Destroy; override;

    procedure OnAlarm(Sender : TObject);
  end;

Código Delphi [-]
constructor TAlarmClock.Create(aOwner : TComponent);
begin
   inherited Create(aOwner);
   FClock := TRxClock.Create(aOwner);
   FClock.Enabled := true;
   FClock.AlarmEnabled := True;
   FClock.OnAlarm := Self.OnAlarm;
end;

y nada, sigue sucediendo el mismo error, que mas se le ocurre???

salu2
miguel_e

nota: fijense que el error da cuando termina el constructor y en el proximo sentencia entra sola en otra unit que parece que es la que tiene el timer encargada de vigilar el evento, el codigo es el siguiente:

Código Delphi [-]
procedure TRxTimer.Timer;
begin
  if FEnabled and not (csDestroying in ComponentState) and
    Assigned(FOnTimer) then FOnTimer(Self);
end;

[paldave]

Postea todo el código en un zip así se puede analizar mejor.