RXClock y error Control has no parent window

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

[miguel_e]

OK asi funciona, muchas gracias, ya que estamos hablando del tema, esta clase debe cuando la termine, correr en un servicio window, por lo tanto no habra ningun formulario, TRxClock siempre debe tener una referencia a un formulario, en mi caso la referencia que le debia poner es un DataModule, serviria?????, que podria hacer en caso de que no hubiera formulario en mi aplicacion?????

salu2
miguel_e

[[maeyanes]]

Si no va a tener ningún formulario, por que no mejor usas un TTimer para tal efecto?


Saludos...