Inseri no formulário um memo, um botão ler e um botão pausa. O problema é que quando clico no botão ler, o sistema não permite que eu clique em mas nada até que a leitura termine impedindo que eu de PAUSA ou faça qualquer outra coisa. eis o código que estou usando
Pergunta
Pablo_2009
Inseri no formulário um memo, um botão ler e um botão pausa. O problema é que quando clico no botão ler, o sistema não permite que eu clique em mas nada até que a leitura termine impedindo que eu de PAUSA ou faça qualquer outra coisa. eis o código que estou usando
USES COMOBJ;
VAR
PC: OLEVARIANT;
procedure TForm1.FormCreate(Sender: TObject);
begin
PC:=CreateOleObject('SAPI.SPVoice');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
PC.Speak(memo1.text);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
PC.PAUSE;
end;
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.