Fehler bei Erzeugung TTimer zur Laufzeit

[haentschman]

Moin...

if TTimer(FindComponent('Timer1')) = Nil then ...warum erst auf der Form/Datamodule gucken und dann den Timer dynamisch erzeugen? Du mußt doch wissen was du auf die Form gepackt hast. Wenn du keinen Timer auf der Form hast, dann ist die Zeile überflüssig...

PS: weißt du eigentlich noch was "BitBtn267" ist?

PS:
1. Mit dem Button erzeugst du jedesmal einen neuen Timer. Die Timer werden aber erst mit der Anwendung freigegeben!
2. Die erzeugten Timer werden nie angehalten!
3. Wenn du 3 Mal gedrückt hast, hast du 3 Timer die "regelmäßig" nach 15min nach ihrem Start das Event auslösen!

[bernau]

Zitat von haentschman:

Moin...

if TTimer(FindComponent('Timer1')) = Nil then ...warum erst auf der Form/Datamodule gucken und dann den Timer dynamisch erzeugen? Du mußt doch wissen was du auf die Form gepackt hast. Wenn du keinen Timer auf der Form hast, dann ist die Zeile überflüssig...

PS: weißt du eigentlich noch was "BitBtn267" ist?

PS:
1. Mit dem Button erzeugst du jedesmal einen neuen Timer. Die Timer werden aber erst mit der Anwendung freigegeben!
2. Die erzeugten Timer werden nie angehalten!
3. Wenn du 3 Mal gedrückt hast, hast du 3 Timer die "regelmäßig" nach 15min nach ihrem Start das Event auslösen!

So wie ich das sehe wird mit dem Button der Timer genau ein einziges mal erzeugt. Danach gibt die Funktion if TTimer(FindComponent('Timer1')) = Nil immer false zurück und der Zweig, im dem ein neuer Timer zugefügt wird, wird nicht durchlaufen.

[haentschman]

Moin...
if TTimer(FindComponent('Timer1')) = Nil ...imho findet FindComponents nur die statisch auf der Form liegenden Components. Die dynamisch erzeugten sind nicht im Components Array...oder?
http://docwiki.embarcadero.com/Libra....FindComponent

[DeddyH]

AFAIK sind diejenigen Komponenten im Components-Array, deren Owner die jeweilige Komponente ist. Äquivalent dazu sind diejenigen im Controls-Array, deren Parent sie ist. Ob sie zur Lauf- oder Designzeit angelegt wurden spielt dabei keine Rolle. Sollte ich mich irren, bitte korrigieren.

[haentschman]

Zitat:

Ob sie zur Lauf- oder Designzeit angelegt wurden spielt dabei keine Rolle

...aha, der Owner/Parent ist ausschlaggebend...again what learned.

[himitsu]

Owner -> Components
Parent -> Controls

PS: FindControl

Delphi-Quellcode:

C := TC.Create(X); -> X.Components[] und X.FindComponent(C.Name) // ab TComponent
C.Parent := X; -> X.Controls[] und X.FindControl(C.Name) // ab TWinControl