voila, pour un lecteur, je lis des vidéo dans tPanel. Les vidéo sont chargées à partir d"un listbox, grace a ce code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
   P.left:= 45;//coordonnées absolues
 
    P.Top:= 40;
 
    P.Width:= 400;
 
    P.Height:= 220;
 
    Rect.Left:=0 ;//Coordonnées relatives au Panel P
 
    Rect.Top:=0;
 
    Rect.Right:=P.Width-0;
 
    Rect.Bottom:=P.Height-0;
 
 
 
       Gauge1.Progress:=mp.Position;
 
    i := 0;
    while i < PlayList.Count do
      begin
        if ListBox1.Selected[i] then
          begin
            idx := i;
            i := PlayList.Count;
          end;
        inc(i);
      end;
  if PlayList.Count > 0 then
    if FileExists(PlayList[Idx]) then
      begin
 
 mp.Display:=p;
 
          mp.DisplayRect:=rect;
 
        Playing := True;
        PlaySuport(Idx);
 
 
 
 
      end;
la ca fonctionne.
Par contre, je voudrais lire une vidéo fixe ki se lance a l'ouverture par exemple, mais je n'arrive pas à le faire, si quelqu'un peut m'aider...