mauar
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Люди помогите пожалуйсто, как в моем коде реализовать метод ожидания окончания действия функцией WaitForSingleObject:
Есть форма, на форме расположен PageControl , прописана одна команда, с несколькими действиями, вот такого типа:
Begin
If Cmd.Name = 'Экскурсия' Then Begin // Действие 1
Chars.MoveTo(360,150,1);
end;
end;
Begin
If Cmd.Name = 'Экскурсия' Then Begin // Действия 2
Chars.Play('Explain');
end;
end;
Begin
If Cmd.Name = 'Экскурсия' Then Begin // После окончания действия 2,
PageControl1.ActivePage:= TabSheet4; //происходит переключения на
//страницу PageControl с индексом 4
end;
end;
Begin
If Cmd.Name = 'Экскурсия' Then Begin // Действия 3
Chars.Speak('\Chr="Normal"\
\Ctx="Unknown"\\Spd=130\\Pit=88\Текст такой то ...','');
end;
end;
Begin
If Cmd.Name = 'Экскурсия' Then Begin // Действия 4
Chars.Play('GestureRight');
end;
end;
Begin
If Cmd.Name = 'Экскурсия' Then Begin // После окончания действия 4,
PageControl1.ActivePage:=TabSheet1; //происходит переключения на
//страницу PageControl с индексом 1
end;
end;
Мне нужно реализовать метод ожидания окончания действия 4 .
Помогите плиз, что то у меня не получается. |
