简单问题

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  s: VTxtAuto_;
begin
  //请给出这里的代码，实现发音功能
end;

Answer 1

安装微软的TTS以后，在Activex 组件面板上找到它，往form上拽一个，放个button，在里面写上
procedure TForm1.Button3Click(Sender: TObject);
begin
  TextToSpeech1.Speak('I love you, baby');
end;

Answer 2

点击component-》Import Activex control后，在弹出的窗口上部分列出了已经注册的activex控件，在其中找到microsoft voice text (version 1.0)，然后安装。

Answer 3

给你粘贴一段吧要把A c t i v e X控件加到组件面板上，需要进行以下步骤：
1) 从主菜单中选取Component | Import ActiveX Control命令，这将打开Import ActiveX Control对话
框，如图7 - 1所示。
图7-1 Import ActiveX Control对话框
2) Import ActiveX Control对话框分为两部分：上半部分为已注册的A c t i v e X控件的列表以及A d d和
R e m o v e控钮，分别用于注册和撤消注册；下半部分允许你指定有关参数来创建封装该控件的组件单
元。
3) 如果想要的控件出现在对话框的上半部分，则执行步骤4。否则，单击A d d按钮注册一个新的控
件。单击A d d控钮，将打开Register OLE Control对话框，如图7 - 2所示。选择一个要注册的控件的O C X
或D L L文件，单击O p e n按钮。此时，所选的A c t i v e X控件就被注册到系统注册表中，并关闭R e g i s t e r
OLE Control对话框。
4) 在Import ActiveX Control对话框的上半部分，选择要加到组件面板上的A c t i v e X控件。对话框的
下半部分让你指定单元文件名称、组件面板上的页标签、搜索路径以及封装O C X的类名。显示在U n i t
File Name框中的路径是D e l p h i外套单元的路径，文件名默认与O C X文件相同，但扩展名是. p a s。默认的路径是\Delphi 5\Imports。尽管默认值不错，但也可以设为你喜欢的路径和文件名。
图7-2 Register OLE Control对话框
5) Palette Page框用于指定要把A c t i v e X控件加到组件面板的哪一页上，默认是A c t i v e X页。可以指
定为其他已有的页，或者输入一个新的标签， D e l p h i会在组件选项板上创建新的一页。
6) Import ActiveX对话框的Class Names框中包含这个控件的新建项目名。一般应保持默认，除非
有特殊的原因，例如，默认名与其他已安装在I D E中的组件冲突。
7) 此时可以单击Import ActiveX对话框的I n s t a l l或Create Unit按钮。Create Unit按钮将生成封装这
个A c t i v e X控件的单元代码。而I n s t a l l按钮将生成外套代码，然后打开I n s t a l l对话框，让你选择要安装
组件的包，如图7 - 3所示。
图8) 在I n s t a l l对话框中，可以选择一个已有的包来安装该控件，也可以创建一个新的包来安装该控
件。单击O K按钮，该控件将安装到组件面板上。
至此，A c t i v e X控件已经在组件面板上了。