Форумы
Вселенная аллодов
03.08.2002, 03:58
Если правильно понял.........................
procedure TForm1.PauseClick(Sender: TObject);
begin
with MediaPlayer1 do
if Pause.Caption = 'Play' then
begin
Pause.Caption := 'Pause';
Play;
end
else
begin
Pause.Caption := 'Play';
MediaPlayer1.Pause;
end;
end;
end;
кстати переименуй кнопку Pause,
а то называется также как метод pause, от греха
procedure TForm1.PauseClick(Sender: TObject);
begin
with MediaPlayer1 do
if Pause.Caption = 'Play' then
begin
Pause.Caption := 'Pause';
Play;
end
else
begin
Pause.Caption := 'Play';
MediaPlayer1.Pause;
end;
end;
end;
кстати переименуй кнопку Pause,
а то называется также как метод pause, от греха