O video não fica em tela cheia

Tente subistituir essas linhas:

MediaPlayer1.Play;
MediaPlayer1.Display:= Form1;

Por algo assim:
MediaPlayer1.Play;
Form1.WindowState := wsNormal;
Form1.BorderStyle := bsNone;
Form1.BorderIcons := [];
MediaPlayer1.Display:= Form1;

Dessa forma, primeiro você vai estar fazendo o form ocupar a tela toda, depois (ficando sem borda e aquela barra de título padrão do windows).
Acredito que estava dando problema porque o video ocupava somente o form inteiro, mas o form em si não ocupava toda tela, por isso o video não ocupava a tela toda.

naum naum meu amigo....


isto vai dar certo;...


MediaPlayer1.FileName :=´c:\meuVideo.extenção´;
MediaPlayer1.Open;
MediaPlayer1.Display := form1;
MediaPlayer1.DisplayRect := form1.ClientRect;
MediaPlayer1.Play;

isto da certo... naum esqueca de colocar o form para abrir na tela cheia.

Form1.WindowState := wsNormal;
Form1.BorderStyle := bsNone;
Form1.BorderIcons := [];

[quote:0b669f8a17=´uelcome e eu´]
Form1.WindowState := wsNormal;
Form1.BorderStyle := bsNone;
Form1.BorderIcons := [];
[/quote:0b669f8a17]

Nós vacilamos em falar que maximizar é assim.
Apenas troque a linha [b:0b669f8a17]Form1.WindowState := wsNormal;[/b:0b669f8a17] (assim fica com a tela normal) por [b:0b669f8a17]Form1.WindowState := wsMaximized; [/b:0b669f8a17] que é para maximizar o form (estando sem borda e sem barra padrão ele ocupará toda a tela).

Desta maneira so o form que que fica em tela cheia, o video continua no tamanho normal.

Olá,

Pelo que entendí, o que vocês estão fazendo para solucionar o problema do form no XP é alterar o Form1.WindowState := wsNormal?

Mas pessoal, se form meia dúzia está bem, mas quando se tem centenas de form´s como proceder?

Deve ter alguma outra maneira,

Estou com erro também ao imprimir QR na Tela - com o método Previewn, dá erro e aborta o sistema????

Grato,