Цитата:
procedure TForm1.onRizeVideo;
var MyRect: TRect;
begin
MediaPlayer1.Stop;
MyRect.Top := Panel1.ClientRect.Top;
MyRect.Left := Panel1.ClientRect.Left;
MyRect.Right := Panel1.ClientRect.Right;
MyRect.Bottom := Panel1.ClientRect.Bottom;
MediaPlayer1.DisplayRect := MyRect;
MediaPlayer1.Play;
end;
|
А напрямую присваивать - вера не позволяет?
Код:
procedure TForm1.onRizeVideo;
begin
MediaPlayer1.Stop;
MediaPlayer1.DisplayRect := Panel1.ClientRect;
MediaPlayer1.Play;
end;