RXClock y error Control has no parent window

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

[miguel_e]

bueno, tampoco funcionú.

el Try...Except...End solamente lo use para ver si ignorando la excepcion me generaba la alarma, pero no, bueno ya no se la verdad que probrar, cualquier sugerencia bienvenida

saludos
miguel_e

[[maeyanes]]

Prueba haciendo esto:

Código Delphi [-]
FClock := TRxClock.Create(Self);
FClock.Parent := AOwner;

Saludos...

[miguel_e]

TRxClock no tiene ninguna propiedad llamada Parent, sino una que se llama ParentWindow y que recibe un parametro de tipo HWND, sera esta la via?????

saludos
miguel_e

[[maeyanes]]

Y por que no derivas simplemente de TRXClock?

Código Delphi [-]
TMyClock = class(TRXClock)
protected
  procedure Alarm; override;
public
  constructor Create(AOwner: TComponent); override;
end;

implementation

constructor Create(AOwner: TComponent);
begin
  inherited;
  Enabled := True;
  AlarmEnabled := True
end;

procedure TMyClock.Alarm;
begin
  ShowMessage('Alarma disparada');
  inherited
end;

Ahora, sobre que TRXControl no cuente con la propiedad Parent, es raro, ya que al descender de TCustomPanel, este cuenta con esa propiedad...

En dado caso podrías probar con:

Código Delphi [-]
  if AOwner es TWinControl then
    FClock.ParentWindow := TWinControl(AOwner).Handle;

Saludos...