Working with animation

[alexhaifa]

Hello,

I have a procedure where some information are recorded.
I have some edits that must be filled, I put in their event onchange
the code:

Assistent.Play(aaWriting);

While I am writing I want my assistent writing too.
After filling all the edits, I have a button where I recored the information, so I want to stop the assistent that is writing and to pass another animation :

Code: Select all

  Assistent.StopAll;
  Assistent.Play(aaDoMagic);

  With Qry do
  Begin
   Close;
   Sql.Clear;
   Sql.Add('INSERT INTO CADPALVOCPROPRIO');
   Sql.Add('(TP_PALAVRA, TP_OPCAO01, TP_OPCAO02, TP_OPCAO03, TP_OPCAO04, TP_OPCAO_CORRETA, TP_NIVEL, TP_IDIOMA)');
   Sql.Add('VALUES');
   Sql.Add('(:P1, :P2, :P3, :P4, :P5, :P6, :P7, :P8)');
   Parameters.ParamByName('P1').Value := Edit1.Text;
   Parameters.ParamByName('P2').Value := Edit2.Text;
   Parameters.ParamByName('P3').Value := Edit3.Text;
   Parameters.ParamByName('P4').Value := Edit4.Text;
   Parameters.ParamByName('P5').Value := Edit5.Text;
   Parameters.ParamByName('P6').Value := ComboBox2.ItemIndex+1;
   Parameters.ParamByName('P7').Value := ComboBox3.ItemIndex+1;
   Case ComboBox1.ItemIndex of
     0: Parameters.ParamByName('P8').Value := 'US';
     1: Parameters.ParamByName('P8').Value := 'PT';
     2: Parameters.ParamByName('P8').Value := 'ES';
     3: Parameters.ParamByName('P8').Value := 'IT';
     4: Parameters.ParamByName('P8').Value := 'FR';
     5: Parameters.ParamByName('P8').Value := 'AL';
   End;
   ExecSQL;
 End;
 Close;

My question is: What must I do to recored the information only after the animation having ended?

Thanks
Alexandre

[Kambiz]

Please look for WaitFor method of the component in the readme.htm file.

[alexhaifa]

Ok, I looked up in readme about waitfor

I understood so so, could you give me an example?

Assistent.StopAll;
Assistent.Play(aaDoMagic);

I should put here the code, Waitfor(aaDoMagic), something like this?

Thanks very much