🚀 go-pugleaf

"Lorenzo Dieryckx" <slavearcDOEDITWEG@pandora.be> schreef in bericht
news:IPBOb.1406$H84.327756991@hestia.telenet-ops.be...
> 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
>
Mja, om te beginnen:
Verander alle '=' in de delphi source door ':='
sorry!
grts,
Lorenzo