hola
entendi muy bien el mensaje de la otra vez, y es cierto ustedes solo son una ayuda, disculpa de todas formas por haber sido asi.
hoy le quiero contar que estoy trabajando un programita muy sencillo con un combobox que desapliega una lista de numeros del 1 al 10 y los muestra al frente con un label pero, me encantaria meterle algo de sonido y no se que componente usar ni como usarlo y no se si usted me podria ayudar explicando me esto, abajo le envio el codigo que tengo.
mi idea es que cuando se escoja el numero salga la voz que yo grabaria diciendo el numero.
le agradesco escribirme en español si no es mucha molestia
saludos
[
Unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
ComboBox1: TComboBox;
Button1: TButton;
procedure ComboBox1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case combobox1.ItemIndex of
0:label1.Caption:= 'ONE';
1:label1.Caption:= 'TWO';
2:label1.Caption:= 'THREE';
3:label1.Caption:= 'FOUR';
4:label1.Caption:= 'FIVE';
5:label1.Caption:= 'SEX';
6:label1.Caption:= 'SEVEN';
7:label1.Caption:= 'EIGHT';
8:label1.Caption:= 'NINE';
9:label1.Caption:= 'TEN';
END;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CLOSE;
end;
end.
]