Fehler bei Erzeugung TTimer zur Laufzeit

[weinberger]

Hallo,

ich möchte eine TTimer-Komponente zur Laufzeit erzeugen und OnTimer zuweisen. Dabei bekomme ich die Folgende Fehlermeldung:

[dcc32 Fehler] Main1.pas(8041): E2010 Inkompatible Typen: 'TNotifyEvent' und 'procedure, untyped pointer or untyped parameter'

Hier der Quelltext (Auszüge)

type
TMain = class(TForm)
.
.
.
procedure MyTimer(Sender: TObject);
.
.
.

implementation

uses ....



{$R *.DFM}
.
.
.
.

procedure TMain.MyTimer(Sender: TObject);
begin
MessageDlg('15Min um!', mtInformation, [mbOk], 0, mbOk);
end;

.
.
.

procedure TMain.BitBtn267Click(Sender: TObject);
var
edTimer: TTimer;
begin
//Timer mit 15 Min starten
if TTimer(FindComponent('Timer1')) = Nil then
begin
edTimer := TTimer.Create(Self);
edTimer.Enabled := False;
edTimer.Name := 'Timer1';
edTimer.Interval := 3240000;
edTimer.OnTimer := MyTimer(Self);
edTimer.Enabled := True;
end;
end;

Habe hier im Forum schon gesucht aber nichts brauchbares gefunden.
Kann mir da jemand helfen?

[DeddyH]

Benutze künftig bitte Delphi-Tags, dann ist der Code besser lesbar. Zum Problem:

Delphi-Quellcode:

edTimer.OnTimer := MyTimer(self);
-->
edTimer.OnTimer := MyTimer;

[weinberger]

Danke jetzt gehts

[himitsu]

:= MyTimer entspricht implizit einem := @MyTimer; (speichere den Zeiger auf diese Methode),

aber MyTimer(irgendwas) ist ein Aufruf dieser Funkton/Prozedur und hier wird das "Result" der Funktion für die Zuweisung verwendet (rufe Funktion auf und speicher das, was sie zurückliefert).
Und natürlich stimmt die Signatur des "nichtvorhandenen" Results nicht mit dem Typ der Variable des Property überein, was dann der Compiler auch richtig bemängelt hat.

[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