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;