RXClock y error Control has no parent window

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

[miguel_e]

es que necesitaba agregar alarmas y me evitaba asi tener que estar haciendo chequeos para ver si ya habia pasado o no el tiempo de ejecutar la accion cada vez que se disparara el evento del Timer, por eso queria usar TRxClock, si de todas maneras se le ocurre otra via que me recomienden, bienvenida

saludos
miguel_e