Visualisation plein ecranRésolu

Question

Salut à tous,

J'ai creer un lecteur multimédia (mp3,wma, avi, mpg) réalisé avec mediaplayer.
Seulement impossible de faire une visualisation de film ou videos en plein écran.
J'ai vu quelque sujet sur @ qui disait qu'il fallait regarder du coté d'activx mais rien de précis.

J'en appel a vous pour me filer un coup de main.

Merci d'avance.

Francky23012301 · Accepted Answer

Si tu veux cacher la barre

Procedure TForm1.PleinEcran;
var
  HTaskbar: HWND;
  OldVal: LongInt;
begin
  try
    HTaskBar := FindWindow('Shell_TrayWnd', nil);
    SystemParametersInfo(97, Word(True), @OldVal, 0);
    EnableWindow(HTaskBar, False);
    ShowWindow(HTaskbar, SW_Hide);  // mettre SW_SHOW pour faire réapparaitre la barre
  finally
Form1.Left:=0;
Form1.Top:=0;
Form1.width:=screen.width;
Form1.height:=Screen.Height;
end;
end;

Tu as pas du beaucoup chercher : car je viens de trouver au moins 4 sites sur google (mots clés Delphi+plein+écran) qui donne des sources relativements identiques. Tu es prié de chercher avant de poster.

@+

Francky23012301 · Answer

Salut

Procedure TForm1.PleinEcran;
begin
Form1.Left:=0;
Form1.Top:=0;
Form1.width:=screen.width;
Form1.height:=Screen.Height;
End;

Pas testé

@+

cs_Loda · Answer

Au cas où, j'ajouterais que pour cacher la barre de titre utilise form.BorderStyle = bsNone.

tux22 · Answer

Merci ca je savais :P tu fais bien de le dire ca peut tujours servir ;)

Merci francky  dsl pour la recherche baclé ^^

Visualisation plein ecran

4 réponses

Votre réponse

Discussions similaires