OnInputChanged : TInputChangedEvent;
TInputChangedEvent = procedure(Sender : TComponent; var Index : Integer; var Continue : Boolean) of object;
This event is envoked when TInputList instance switches from one input item to enother. Index is the index of the item to be played next. You may change this value to play another item. For example, if you want the last input to be played again, you can write an event handler like this:
procedure TForm1.InputList1InputChanged(Sender: TComponent; var Index: Integer; var Continue: Boolean); begin if not GoToNext then Dec(Index); end;
Note GoToNext variable (defined somewhere else) which ensures that the playback will not loop endlessly. The Continue parameter allows you to stop list playback (by setting it to False).
Copyright © 2002, 2003 Andrei Borovsky. All rights reserved.