Не работаэт компонент MediaPlayer

[krolik]

Я немогу понять что не так в етой програме компонент MediaPlaye при запуска серого цвета и не одна кнопка не нажымаэтса....)))))
Помогите пожалуста...буду очень благодарен!!!!

Листинг програмы

Код:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MPlayer, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
ListBox1: TListBox;
MediaPlayer1: TMediaPlayer;
procedure FormCreate(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

var
SOUNDPATH: string[80];

procedure TForm1.FormCreate(Sender: TObject);
var
lpBuf: PChar;
sWinDir: string[128];
SearchRec: TSearchRec;
begin
GetMem(lpBuf,MAX_PATH);
GetWindowsDirectory(lpBuf,MAX_PATH) ;
sWinDir:=lpBuf;
SOUNDPATH:=sWinDir+'\Media\';
FreeMem(lpBuf);

if FindFirst(SOUNDPATH+'*.wav', faAnyFile, SearchRec) =0 then
begin
Form1.ListBox1.Items.Add(SearchRec. Name);
while(FindNext(SearchRec) = 0) do
Form1.ListBox1.Items.Add(SearchRec. Name);
end;

end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
Label2.Caption:=ListBox1.Items[ListBox1.itemIndex];
end;

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
begin
if (Button = btPlay) and (Label2.Caption <> '') then
begin
with MediaPlayer1 do
begin
FileName:=SOUNDPATH+Label2.Caption;
Open;
// Wait:= True;
end;
end;
end;
end.

[Terran]

Измените обработчик события для MediaPlayer. К примеру так:

procedure TForm1.Button3Click(Sender: TObject);
begin
if (Label2.Caption <> '') then
begin
with MediaPlayer1 do
begin
FileName:=SOUNDPATH+Label2.Caption;
Open;
// Wait:= True;
end;
end;
end;

[uberchel]

В свойствах компонента, измените

autoenable = true

на

autoenable = false

[krolik]

спасиба бльшое!!!! все работает.... очень благодарен