Runtime object event geven

• 

  Dave

  17-01-2005 20:19

  Hoi,

  Ik heb de volgende code:

  procedure TPlayer.setVolume(volume: integer);

  begin

  BASS_SetVolume(volume);

  Self.Volume:=volume;

  end;

  procedure TPlayer.startFade(duur: integer);

  var

  timer: Ttimer;

  begin

  timer:=TTimer.Create(timer);

  timer.Interval:=1;

  timer.OnTimer := setVolume(volume);

  end;

  helaas werkt dit niet

  timer.ontimer := setvolume(volume) gaat niet

  wat doe ik fout?
• 

  w

  22-01-2005 10:45

  Je kunt aan een event niet zomaar een willekeurige method hangen. Het moet een eventhandler zijn.

  Zet een Timer op je scherm en klik op de het OnTimerEvent in de objectinspector, dan zie je hoe een eventhandler eruit moet zien. Dan zie je ook dat je geen parameter kunt meegeven. Je zult dan in het OnTimerEvent van de Timer de door jou gewenste method moeten aanroepen. Gebruik ook de helpinformatie van Delphi.

  Groetjes en Succes.
• 

  Mithrandir

  14-06-2006 10:21

  Gebruik iets als:

  procedure timerEvent(Sender: TObject)

  begin

  setVolume(volume);

  end;

  timer.ontimer := timerEvent