Ver Mensaje Individual
  #4  
Antiguo 19-11-2009
Avatar de Crandel
[Crandel] Crandel is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Parana, Argentina
Posts: 1.475
Reputación: 25
Crandel Va por buen camino
Si, ahora se entiende mucho mejor

En tu caso tendrías una clase TCronometro que es la que debe avisar cuando se ha iniciado. Por lo que debes implementar un evento utilizando la clase TNotifyEvent.

Código Delphi [-]
TCronometro = class
private
  FStartEvent: TNotifyEvent;
  ...
public
  procedure Start;
  procedure Stop;
  ... 
  property OnStart: TNotifyEvent read FStartEvent write FStartEvent;
end;

y lo implementas asi:

Código Delphi [-]

procedure TCronometro.Start;
begin
...
if Assigned(FStartEvent) then FStartEvent(self);
end;


por otro lado tendrías tu clase contenedora

Código Delphi [-]
TManjejadorHorarios = class
private
  ...
public
  Cronometros: Array of TCronometro;
  procedure InicioCronometro(Sender: TObject);
end;

donde debes asignar a un método propio la llamada del evento, algo como:
Código Delphi [-]
Cronometros[0].OnStart := InicioCronometro;

Espero no haberte enredado mucho. Cualquier duda volve a preguntar
__________________
[Crandel]
Responder Con Cita