Fullscreen til video

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.BorderStyle:=bsNone;
  Panel1.BringToFront;
  Form1.WindowState:=wsMaximized;
  Panel1.Align:=alClient;
  MediaPlayer1.Open;
  MediaPlayer1.Display:=Panel1;
  MediaPlayer1.DisplayRect:=Panel1.ClientRect;
  MediaPlayer1.Play;
end;

Problemet er at .Open skal kaldes da der åbenbart går noget galt når BorderStyle sættes til bsNone, men ellers virker det fint.

Jeg siger tak. :)
Drop et svar så giver jeg points.

ok