TInputList Events


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).


TInputList ACS Classes Home


Copyright © 2002, 2003 Andrei Borovsky. All rights reserved.