🚀 go-pugleaf

Hello,

Ik ben bezig met een projectje in delphi.
Jammergenoeg ben ik nog niet echt bedreven in delphi, en dus
heb ik voor het ogenblik wat problemen waar in niet
direct info over vind.

Het probleem is, dat ik een timer wil gebruiken in een klasse,
en een procedure koppelen aan z'n onTime-event.
in C++ deed ik dit vroeger zo:

class foo
{
   private:
        TTimer* myTimer;
        void myTimerTime();
   public:
        foo();
};

foo::foo()
{
    this->myTimer->onTime = myTimerTime();        //<-- functiepointer
meegeven
    this->myTimer->Interval = 1000;
    this->myTimer->Enabled = true;
}

void foo::myTimerTime()
{
    ShowMessage("de tijd is verstreken");
}


Ik wil dit nu vertalen naar delphi, maar als ik probeer een functiepointer
te koppelen aan dat event, blijkt dat niet te lukken. Mijn probleem
is waarschijnlijk dat ik veel te veel C++ gewend ben. Misschien
werkt delphi wel helemaal niet op die manier, en zoek ik naar de
verkeerde dingen. Het enige wat ik kan vinden ivm eventhandlers in Delphi,
gaan over eventhandlers die via de object inspector gemaakt worden.
Maar ik kan dan nergens in h��l mijn Unit een regel code vinden die
de gecre�erde procedure koppelt aan dat bepaald event.
Anyway, hieronder vind je hoe ik het vertaald heb naar delphi,
gelieve mij te helpen om de c++ code eruit te halen ;-)

type
    foo = class
    private
        myTimer : TTimer;
        procedure myTimerTime();
    public
        constructor Create();
end;

constructor foo.Create();
begin
    myTimer.onTime = myTimerTime;        {<-- problemen}
    myTimer.Interval = 1000;
    myTimer.Enabled = True;
end;

procedure foo.myTimerTime();
begin
    ShowMessage('de tijd is verstreken');
end;


bedankt op voorhand
grts,
Lorenzo