Timer in Komponente integrieren

[24jb]

Hallo,

ist es möglich in eine Componente (TGraphicControl) einen Timer zu integrieren?
Wenn ja, wie muss ich da ansetzen?

Danke im vorraus

Olav

[SirThornberry]

ja es ist möglich:

Delphi-Quellcode:

type
  TYourClass = class(TVorgaenger)
  private
    fAnyClass: TAnyClass;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

[...]
constructor TYourClass.Create(AOwner: TComponent);
begin
  inherited;
  fAnyClass := TAnyClass.Create;
  fAnyClass.Irgendwas := irgendwas;
  [...]
end;

destructor TYourClass.Destroy();
begin
  fAnyClass.Free;
  inherited Destroy;
end;

[Sharky]

Zitat von 24jb:

... Wenn ja, wie muss ich da ansetzen?

Hai Olav,

erzeuge einfach eine eigene Instanz von TTimer im OnCreate deiner Komponete und gebe diese im OnDestoy wieder frei.

Im Anhang ist eine Komponente die ich mir mal gemacht habe welche einen Timer verwendet.