Так для это го нужно:
Код:
procedure TForm1.Panel1Resize(Sender: TObject);
var sWidth,sHeight: Integer;
begin
Mediaplayer1.Stop;
sWidth := DisplayRect.Right;
sHeight := DisplayRect.Bottom;
Mediaplayer1.DisplayRect := Panel1.ClientRect;
Mediaplayer1.Play;
end;
Вроде бы все. Извените что не отвечал долго, пароль забыл. !!!