RXClock y error Control has no parent window

[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.

[miguel_e]

ahi te va, renombralo a .rar


example.zip

[paldave]

Bueno, no pude ejecutarlo porque no tengo el TRxClock
De todas formas me quedó más claro cual puede ser el problema:
1) No sé por qué utilizas las sentencias Try...Except...End en un lugar que no debería dar problemas
2) Intuyo que el componente TRxClock debe mostrar un diálogo o algo parecido cuando llega la hora de la alarma, y por allí debe venir el problema. Debrías asignar el evento OnAlarm y ajustar la alarma antes de activarla, y hacer que tu componente sea el propietario del TRxClock.
A ver si así anda:

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

No veo errores en el resto del código.
Es increíble como a veces algo fácil se complica, como nos sucedió en este caso.