Ребят, есть код:
Код:
procedure TFormMain.BitBtn2Click(Sender: TObject);
begin
FormAnimate.ShowModal;
ADOStoredProcImport.ExecProc;
FormAnimate.Close;
ShowMessage('Информация передана');
end;
Админ: Пользуемся тегами для оформления кода!
В этой процедуре идет вызов отдельной формы с анимацией, на ней располагается компонент TAnimate, к компоненту прикреплен файл avi. После вызова формы идет использование хранимой процедуры ADOStoredProcImport.ExecProc, которая осуществляет передачу данных из файла в базу данных. Далее закрытие формы с анимацией и вывод сообщения, что данные переданы. Проблема в том, что процессы идут последовательно, и пока форма с анимацией работает, вызов хранимой процедуры не осуществляется.
Как сделать в Delphi 2010, чтобы эти два процесса шли одновременно, то есть во время работы хранимой процедуры (передача данных) на экране шла анимация с другой формы?