Lire plusieurs vidéos sur une même form en même temps

Bonjour à tous

Je me pausais une question.
Est-ce possible de lire plusieurs vidéos sur une même form en même temps.
Je m'explique, je désirerais avoir plusieurs Panel à l'écran et dans chacun d'eux qu'une vidéo soit lue en boucle

Et si cela est possible, Faut-il utiliser un object TMediaPlayer par vidéo ou pas ?

Merci d'avance pour votre aide

Personne ne peut m'aider ?

installe les controles activex videolan ( vlc ) et windowsmediaplayer

Composant , importer des controles activex

selectionne le bon windows mediaplayer

où le nom de classes est TWindowsMediaPlayer

clique sur installer

installe dans un nouveau paquet

une erreur surviendra

rends toi dans le dossier imports de borland

ouvre avec notepad WMPLib_OCX.h

remplace // Interface d'OCX par défaut TCOMIWMPCore m_OCXIntf;
par //blablabla...
TypeTOTO m_OCXIntf;

il manquait un retour chariot , recommences le tout et au moment où il te demande d ecraser , refuse pour conserver le .h modifier


celà fait , rends toi dans activex de la palette , tu dois avoir un mediaplayer present ,places en trois sur la fiche

et utilises çà sur on onclick d un bouton ou formcreate

WindowsMediaPlayer1->URL="1.avi";
WindowsMediaPlayer2->URL="2.avi";
WindowsMediaPlayer3->URL="3.avi";

places 3 petites video dans ton dossier où est sauvegardé le projet et nommes les 1.avi , 2.avi , 3.avi

compile , normalement les 3 players lisent chacun leur video

avec videolan c est pareil mais moins stable et je crois que tu ne peux pas mettre plusieurs activex sur la form


bonne journée

Merci beaucoup je vais regarder ca.

Je n'arrive pas à installer le control ActivX
Bulder plante.

J'ai également des problèmes quand je lis une vidéo sur le net, ca plante au bou d'un moment. Cela peut venir de ça mais je ne sais pas comment résoudre mon problème.

je te donnerai un coup de main mais pas avant mardi , je dois me preparer pour un entretien technique ( un test )

++

pas joué avec mais que te dit la doc à ce sujet ?

Salut

Desolé pour le retard mais je bossais sec

As tu resolu ton probleme ?

Sinon on peut le faire sur msn

Tiens moi au courant

++

Citation:

---

Envoyé par cedni

installe les controles activex videolan ( vlc ) et windowsmediaplayer

Composant , importer des controles activex

selectionne le bon windows mediaplayer

où le nom de classes est TWindowsMediaPlayer

clique sur installer

installe dans un nouveau paquet

une erreur surviendra

rends toi dans le dossier imports de borland

ouvre avec notepad WMPLib_OCX.h

remplace // Interface d'OCX par défaut TCOMIWMPCore m_OCXIntf;
par //blablabla...
TypeTOTO m_OCXIntf;

il manquait un retour chariot , recommences le tout et au moment où il te demande d ecraser , refuse pour conserver le .h modifier


celà fait , rends toi dans activex de la palette , tu dois avoir un mediaplayer present ,places en trois sur la fiche

et utilises çà sur on onclick d un bouton ou formcreate

WindowsMediaPlayer1->URL="1.avi";
WindowsMediaPlayer2->URL="2.avi";
WindowsMediaPlayer3->URL="3.avi";

places 3 petites video dans ton dossier où est sauvegardé le projet et nommes les 1.avi , 2.avi , 3.avi

compile , normalement les 3 players lisent chacun leur video

avec videolan c est pareil mais moins stable et je crois que tu ne peux pas mettre plusieurs activex sur la form


bonne journée

---

J'ai donc enfin réussi à installer le Control Activex grâce au lien que tu m'a envoyé. Mais j'ai été obligé de désinstaller et réinstaller BDS car cela ne marchait pas non plus au début.

Ensuite j'ai donc créé un Projet et poser sur ma fiche pour commencer un seul control ActiveX MediaPlayer auquel j'ai affecter l'url avec le chemin d'une vidéo.

J'ai deux message d'erreur successif à l'exécution :

Citation:

---

Ayant rencontré le même problème et les recherche sur google n'apportant aucune réponse j'ai du me résigner à en rechercher la cause moi même :

Dans le cadre de mes études j'ai développé avec un collègue un logiciel permettant de faciliter le traitement d'image à l'aide de plugins. Certains se chargeant de l'acquisition des images, les suivants du traitement et les derniers de l'affichage. Hors nous utilisons directshow pour l'acquisition et directx pour l'affichage.

En essayant de debugger (avec le debugger de VS. NET 2003) mon application chez moi le même message d'erreur apparaissait lorsque j'exécutais mon application. Hors à l'école tout fonctionnait pour le mieux.

En consultant la console de debug de VS.Net je me suis aperçu que le dernier module qui était chargé avant la plantée était :

C:\Program Files\Fichiers communs\Ahead\DSFilter\NeVideo.ax

Ahead ? C'est l'entreprise qui a programmé le logiciel Nero pour graver les CD et DVD. Hors il semblerait que par défaut un de leur filtre est utilisé pour lire ou afficher la vidéo lorsque l'on utilise directx ou directshow.

J'ai donc simplement renommé ce fichier afin qu'il utilise un autre "codec" et le tour est joué.

Merci Ahead Software de nous rendre la vie facile !!!

J'espère que ma réponse permettra d'autres utilisateurs de régler ce problème qui je l'avoue est plus que tordu !
--------------------------------------------------------------------------------
themadmax - Mar Juil 26, 2005 10:26

--------------------------------------------------------------------------------
Merci Merci...
J'avais moi aussi une erreur lorsque je debugger mon application qui utilise un filtre perso DirectShow. L'application focntionner, mais en mode DEBUG j'avais l'erreur :
"Debugger Detected - Please close it down and restart!
Windows NT users : please note that having the WinIce/SoftIce service installed means that you are running a debugger!"
En déenregistrant ActiveX :
regsvr32.exe /u "C:\Program Files\Common Files\Ahead\DSFilter\NeVideo.ax"
Le probleme a disparu, je precise aussi quand déinstallant Nero Burnning Room ce filtre n'est pas désintallé

---

peut etre un debut de reponse

Désolé de ma réponse tardive mais j'ai eu des gros soucis avec mon ordi, que j'ai toujours d'ailleurs.

Je n'arrive toujours pas à lire de vidéo sur le net, ca plante.

Par contre j'arrive bien grâce à ce que tu m’as envoyé Cedni à lire plusieurs vidéos sur la même form. Je t'en remercie.

J'ai désenregister NeVideo.ax et ca marche super.

Par contre cela m'amène d'autres questions

Comment détecter si ce filtre est actif pour pouvoir le désactiver de façon transparente.

Je sais que je peux déjà détecter l'existence du fichier mais ensuite ?

Sinon concernant la lecture, est-ce que tu saurais comment faire pour forcer la lecture en boucle sur le MediaPlayer activeX

Merci d'avance

tu testes l existence du fichier
si oui ,
regsvr32.exe /u "C:\Program Files\Common Files\Ahead\DSFilter\NeVideo.ax"
sinon , rien

voilà tout

sur l evenement close de ta form
pareil mais sans le /u

http://silkyroad.developpez.com/VBA/WindowsMediaPlayer/

Code:

---

1 2 3 4 5 6 7 8 9

if (WindowsMediaPlayer1->status=="Stopped") {     WindowsMediaPlayer1.URL = "1.avi"; WindowsMediaPlayer1->controls->Play; // ou // WindowsMediaPlayer1->controls->next;   }

---

ca doit etre pas loin

Merci à toi

J'avais fait quelques recherche de mon côté et j'ai trouver ca

http://msdn2.microsoft.com/en-us/library/bb262911.aspx

Ce qui me pose problème c'est que pour spécifier le Mode, le paramètre est de type wchar_t.

J'ai essayer différentes lignes mais cela ne marche pas

Code:

---

1 2 3 4 5

wchar_t *Mode = new wchar_t(); Mode = L"loop";   MediaPlayer->settings->setMode(Mode, true);

---

et

Code:

---

1 2 3

Variant Mode = "loop"; MediaPlayer->settings->SetMode(Mode, true);

---

Je suis en train d'essayer ta méthode.

Ca ne change rien, mes vidéos se lise et s'arrête.

Quelqu'un aurait-il déjà utilisé setMode et pourrait me dire comment faire

Et comme çà ?

Code:

---

WindowsMediaPlayer->settings->setMode("loop", True);

---

Avec Delphi, le code suivant fonctionne :

Code:

---

WindowsMediaPlayer.settings.setMode('loop', True);

---

Tes deux lignes me donne des erreurs

Code:

---

1 2	MediaPlayer->settings->setMode("loop", true);

---

[C++ Erreur] Unit1.cpp(137): E2034 Impossible de convertir 'char *' en 'wchar_t *'
[C++ Erreur] Unit1.cpp(137): E2342 Mauvaise correspondance de type dans le paramètre 'bstrMode' ('wchar_t *' désiré, 'char *' obtenu)

Code:

---

1 2	MediaPlayer->settings->setMode('loop', true);

---

[C++ Avertissement] Unit1.cpp(137): W8098 Constante caractère multi-caractère
[C++ Erreur] Unit1.cpp(137): E2034 Impossible de convertir 'unsigned int' en 'wchar_t *'
[C++ Erreur] Unit1.cpp(137): E2342 Mauvaise correspondance de type dans le paramètre 'bstrMode' ('wchar_t *' désiré, 'unsigned int' obtenu)

Bonjour,

Il faut que tu mettes un 'L' devant ta chaine de caractère pour la convertir:

Code:

---

MediaPlayer->settings->setMode(L"loop", true);

---

Cordialement,

Benjamin

Citation:

---

Envoyé par kurul1

Merci à toi

J'avais fait quelques recherche de mon côté et j'ai trouver ca

http://msdn2.microsoft.com/en-us/library/bb262911.aspx

Ce qui me pose problème c'est que pour spécifier le Mode, le paramètre est de type wchar_t.

J'ai essayer différentes lignes mais cela ne marche pas

Code:

---

1 2 3 4 5

wchar_t *Mode = new wchar_t(); Mode = L"loop";   MediaPlayer->settings->setMode(Mode, true);

---

et

Code:

---

1 2 3

Variant Mode = "loop"; MediaPlayer->settings->SetMode(Mode, true);

---

Je suis en train d'essayer ta méthode.

---

Je l'ai déjà fait et ca ne marche pas

Je désespère, j'ai essayé plusieurs chose sans résultats

Code:

---

1 2 3 4 5

wchar_t *Mode = new wchar_t(); Mode = StringToWideChar("loop", Mode, AnsiString("loop").Length());   MediaPlayer->settings->setMode(Mode, false);

---

Ou

[/code]

Code:

---

1 2 3 4

wchar_t *Mode = PWideChar(WideString("loop"));   MediaPlayer->settings->setMode(Mode, true);

---

ou

Code:

---

1 2 3 4 5 6 7

BSTR Mode = ::SysAllocString( L"loop");   MediaPlayer->settings->setMode(Mode, true);   ::SysFreeString(Mode); Mode = NULL;

---

La vidéo ne se lit pas en boucle

si tu utilise que des .avi pourquoi en pas utiliser le composant TAnimate ?

c'est simple et y a l'aide ! et pour toi ça boucle :D

Je le connais pas ce composant, je vais regarder

Citation:

---

Envoyé par Bily.sdi

si tu utilise que des .avi pourquoi en pas utiliser le composant TAnimate ?

c'est simple et y a l'aide ! et pour toi ça boucle :D

---

Je croyais que ce composants ne savait lire que les AVI discrets (type animation légère windows sans son).

salut
t as testé l activex vlc ou windows media player ?
ca fonctionne tranquille avec bcb6

oui cela fonctionne mais pas pour lire en boucle

comme tu peux le voir dans le post plus haut, j'ai essayé différentes méthodes pour faire lire une vidéo en boucle et rien y fait en C++. En Delphi j'y suis arrivé, mais s'il faut redévelopper toute mon application en Delphi, je ne pourrais pas faute de temps.

tes videos pesent combien en moyenne et quel genre de resolution utilises tu ?
Et combien veux tu en lire en meme temps ?

Ca vient d un projet que j avais construit

le principe est simple
on liste les medias contenus dans un repertoire "videos"
on les ajoute à un combobox
un bouton play recupere l item du combobox
genere une page html
dont le body contient un <img dynsrc=...chemin...nom...>
on charge cette page locale dans un ccpwebbrowser
et là magique , çà loop mais pas de controls
enfin si on peut imaginer la fonction stop qui chargerait une page vide

En esperant t avoir aidé ...

Code:

---

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 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144

//---------------------------------------------------------------------------   #include <vcl.h> #pragma hdrstop   #include <mshtml.h>   #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "SHDocVw_OCX" #pragma resource "*.dfm" TForm1 *Form1;         //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { }     //---------------------------------------------------------------------------   void __fastcall TForm1::FormCreate(TObject *Sender) { AnsiString page ;   page="<body bgcolor=\"000000\">" ;     AnsiString lapage ; lapage.sprintf("%s%s",ExtractFilePath(Application->ExeName).c_str(),"video.htm"); Memo1->Clear();   Memo1->Lines->Add(page); Memo1->Lines->SaveToFile(lapage);   AnsiString lapageshow ; lapageshow.sprintf("%s%s",ExtractFilePath(Application->ExeName).c_str(),"index.html"); WideString WEB = lapageshow; CppWebBrowser1->Navigate(WEB);     TStringList *Extensions = new TStringList; // On construit la liste des extensions Extensions->Add(".wmv"); Extensions->Add(".avi"); Extensions->Add(".mpeg"); Extensions->Add(".mpg"); Extensions->Add(".divx"); Extensions->Add(".asf"); Extensions->Add(".mp3"); Extensions->Add(".jpg"); Extensions->Add(".gif");   // Appel à notre méthode, avec pour liste des fichiers, les items de la ListBox. Search(ExtractFilePath(Application->ExeName), Extensions, ComboBox1->Items); delete Extensions;   ComboBox1->ItemIndex=0;             } //---------------------------------------------------------------------------   void TForm1::Search(AnsiString FilePath, TStringList * Extensions, TStrings * ListeFichiers) { TSearchRec Infos_fichier; if (!FindFirst(FilePath+"videos/"+"*.*", faAnyFile, Infos_fichier))   do { for (int i = 0 ; i < Extensions->Count ; i++) { if (ExtractFileExt(Infos_fichier.Name).LowerCase() == Extensions->Strings[i].LowerCase()) { ListeFichiers->Add(Infos_fichier.Name); // ListeFichiers->Add(ExpandFileName(Infos_fichier.Name)) ici le nom avec le path } } } while(!FindNext(Infos_fichier));   FindClose(Infos_fichier);     }   // ----------------------------------------------------------   void TForm1::Lecture () {   AnsiString page ; AnsiString videoselect = ComboBox1->Items->Strings[ComboBox1->ItemIndex]; page="<body bgcolor=\"000000\"><center><img dynsrc=\"videos\\" ; // !! le \ pour echapper les guillemets page=page+videoselect ; page=page+"\""; page=page+" start=fileopen " ; // ici à la place de fileopen tu peux mettre onmouseover page=page+" width=\"" ; int largeur = CppWebBrowser1->Width *82/100; page=page+largeur ; page=page+"\" loop=infinite>" ;     AnsiString lapage ; lapage.sprintf("%s%s",ExtractFilePath(Application->ExeName).c_str(),"video.htm"); Memo1->Clear();   Memo1->Lines->Add(page); Memo1->Lines->SaveToFile(lapage);   AnsiString lapageshow ; lapageshow.sprintf("%s%s",ExtractFilePath(Application->ExeName).c_str(),"index.html"); WideString WEB = lapageshow; CppWebBrowser1->Navigate(WEB); }   } //--------------------------------------------------------------------------- void TForm1::Stopper () { AnsiString page ;   page="<body bgcolor=\"000000\">" ;   AnsiString lapage ; lapage.sprintf("%s%s",ExtractFilePath(Application->ExeName).c_str(),"video.htm"); Memo1->Clear();   Memo1->Lines->Add(page); Memo1->Lines->SaveToFile(lapage);   AnsiString lapageshow ; lapageshow.sprintf("%s%s",ExtractFilePath(Application->ExeName).c_str(),"index.html"); WideString WEB = lapageshow; CppWebBrowser1->Navigate(WEB); }

---

en fait je peux en lire de 3 à 6 voir plus

mais ce que je veux pouvoir faire également, c'est par un clique sur cette vidéo, non pas la stopper, mais sélectionner le conteneur de cette vidéo (Pour moi c'est un Panel), et en cliquant sur un autre, faire l'inversion de ces deux Panel, sans que cela n'arrête la lecture.

Je vais regarder ce que tu m'a envoyé, Merci

en fait j imagine ton projet comme etant composé

d une partie à gauche diffusant de courts extraits d un film

d une partie droite affichant la video entiere dans un mediaplayer

c est çà ?

Mais pk cette histoire d inversion ?

Non c'est pas ca du tout

Mon application est un puzzle

Dans les pièces, il peut y avoir soit des images soit des vidéos. (Un seul type par puzzle, on ne peut pas mélanger Images et Vidéos).

Je veux donc pouvoir dans chaque pièce lire une vidéo en boucle et pouvoir déplacer ces Pièces sans que la lecture s'arrête.

Bien entendu, le nombre de pièces ne sera pas 100 comme un Puzzle classique, on se limite à 6 voir à la limite 9 mais pas plus.

ah ok et sinon tu y arrives ?

Comme je t'ai dit, lire plusieurs vidéos en même temps, pas de souci avec ce que tu m'avais conseillé, c'est à dire le control ActivX MediaPlayer.

Après j'ai vu qu'il y avait un évènement OnClick sur le composant donc il ne devrait pas y avoir de problème pour le déplacement. (Je ne glisse pas pour déplacer car c'est prévu pour être utilisé sur un écran tactile, donc juste un clic pour sélectionner et un deuxième sur la Pièce ou l'on veut la déplacer).

Le problème reste la lecture en boucle.

Mes vidéos se lisent toutes en même temps mais dès qu'elles arrivent à la fin, elles s'arrêtent, et rien à faire pour affecter correctement le mode de lecture. En C++ cela ne veut pas alors qu'en Delphi, cela se fait simplement.

Tiens je t ai bricolé çà
ca peut etre ameliorer aisement
comme par exemple ajouter un replacement des boutons qui suit les videos
ou idealement d utiliser du flash dans les browser pour mieux remplir chaque panel .

http://rapidshare.com/files/109122626/puzzle.rar.html

Code:

---

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 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h"   int hauteur=250;int largeur=250; int i; int Top_premier; int Left_premier; int premier; int Top_second; int Left_second; AnsiString test; //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "SHDocVw_OCX" #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- //void TForm1::deplacer() { } //--------------------------------------------------------------------------- void TForm1::change() { switch(premier) { case 1:Panel1->Top=Top_second ; Panel1->Left=Left_second ; break; case 2:Panel2->Top=Top_second ; Panel2->Left=Left_second ; break; case 3:Panel3->Top=Top_second ; Panel3->Left=Left_second ; break; case 4:Panel4->Top=Top_second ; Panel4->Left=Left_second ; break; case 5:Panel5->Top=Top_second ; Panel5->Left=Left_second ; break; case 6:Panel6->Top=Top_second ; Panel6->Left=Left_second ; break; case 7:Panel7->Top=Top_second ; Panel7->Left=Left_second ; break; case 8:Panel8->Top=Top_second ; Panel8->Left=Left_second ; break; case 9:Panel9->Top=Top_second ; Panel9->Left=Left_second ; break; } i=0; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { Panel1->Left=0; Panel1->Top=0 ; Panel1->Width=largeur; Panel1->Height=hauteur; Panel2->Left=largeur; Panel2->Top=0 ; Panel2->Width=largeur; Panel2->Height=hauteur; Panel3->Left=2*largeur; Panel3->Top=0 ; Panel3->Width=largeur; Panel3->Height=hauteur; Panel4->Left=0; Panel4->Top=hauteur ; Panel4->Width=largeur; Panel4->Height=hauteur; Panel5->Left=largeur; Panel5->Top=hauteur ; Panel5->Width=largeur; Panel5->Height=hauteur; Panel6->Left=2*largeur; Panel6->Top=hauteur ; Panel6->Width=largeur; Panel6->Height=hauteur; Panel7->Left=0; Panel7->Top=2*hauteur ; Panel7->Width=largeur; Panel7->Height=hauteur; Panel8->Left=largeur; Panel8->Top=2*hauteur ; Panel8->Width=largeur; Panel8->Height=hauteur; Panel9->Left=2*largeur; Panel9->Top=2*hauteur ; Panel9->Width=largeur; Panel9->Height=hauteur;   Panel10->Left=3*largeur;   AnsiString page1 =ExtractFilePath(Application->ExeName).c_str(); page1+="1.htm"; WideString WEB1 = page1; CppWebBrowser1->Navigate(WEB1);   AnsiString page2 =ExtractFilePath(Application->ExeName).c_str(); page2+="2.htm"; WideString WEB2 = page2; CppWebBrowser2->Navigate(WEB2);   AnsiString page3 =ExtractFilePath(Application->ExeName).c_str(); page3+="3.htm"; WideString WEB3 = page3; CppWebBrowser3->Navigate(WEB3);   AnsiString page4 =ExtractFilePath(Application->ExeName).c_str(); page4+="4.htm"; WideString WEB4 = page4; CppWebBrowser4->Navigate(WEB4);   AnsiString page5 =ExtractFilePath(Application->ExeName).c_str(); page5+="5.htm"; WideString WEB5 = page5; CppWebBrowser5->Navigate(WEB5);   AnsiString page6 =ExtractFilePath(Application->ExeName).c_str(); page6+="6.htm"; WideString WEB6 = page6; CppWebBrowser6->Navigate(WEB6);   AnsiString page7 =ExtractFilePath(Application->ExeName).c_str(); page7+="7.htm"; WideString WEB7 = page7; CppWebBrowser7->Navigate(WEB7);   AnsiString page8 =ExtractFilePath(Application->ExeName).c_str(); page8+="8.htm"; WideString WEB8 = page8; CppWebBrowser8->Navigate(WEB8);   AnsiString page9 =ExtractFilePath(Application->ExeName).c_str(); page9+="9.htm"; WideString WEB9 = page9; CppWebBrowser9->Navigate(WEB9);         } //--------------------------------------------------------------------------- void __fastcall TForm1::Panel1Click(TObject *Sender) { i++; if (i==1) { Top_premier=Panel1->Top; Left_premier=Panel1->Left; premier=1; } if (i==2) {Left_second=Panel1->Left; Top_second=Panel1->Top; change();Panel1->Top=Top_premier ; Panel1->Left=Left_premier ; } } //--------------------------------------------------------------------------- void __fastcall TForm1::Panel2Click(TObject *Sender) { i++; if (i==1) { Top_premier=Panel2->Top; Left_premier=Panel2->Left; premier=2;} if (i==2) {Left_second=Panel2->Left; Top_second=Panel2->Top; change();Panel2->Top=Top_premier ; Panel2->Left=Left_premier ; } } //---------------------------------------------------------------------------   void __fastcall TForm1::Panel3Click(TObject *Sender) { i++; if (i==1) { Top_premier=Panel3->Top; Left_premier=Panel3->Left; premier=3; } if (i==2) {Left_second=Panel3->Left; Top_second=Panel3->Top; change(); Panel3->Top=Top_premier ; Panel3->Left=Left_premier ; } } //---------------------------------------------------------------------------   void __fastcall TForm1::Panel4Click(TObject *Sender) { i++; if (i==1) { Top_premier=Panel4->Top; Left_premier=Panel4->Left; premier=4 ; } if (i==2) {Left_second=Panel4->Left; Top_second=Panel4->Top; change(); Panel4->Top=Top_premier ; Panel4->Left=Left_premier ; } } //---------------------------------------------------------------------------   void __fastcall TForm1::Panel5Click(TObject *Sender) { i++; if (i==1) { Top_premier=Panel5->Top; Left_premier=Panel5->Left; premier=5; } if (i==2) {Left_second=Panel5->Left; Top_second=Panel5->Top; change(); Panel5->Top=Top_premier ; Panel5->Left=Left_premier ; } } //---------------------------------------------------------------------------   void __fastcall TForm1::Panel6Click(TObject *Sender) { i++; if (i==1) { Top_premier=Panel6->Top; Left_premier=Panel6->Left; premier=6; } if (i==2) {Left_second=Panel6->Left; Top_second=Panel6->Top; change();Panel6->Top=Top_premier ; Panel6->Left=Left_premier ; } } //---------------------------------------------------------------------------   void __fastcall TForm1::Panel7Click(TObject *Sender) { i++; if (i==1) { Top_premier=Panel7->Top; Left_premier=Panel7->Left; premier=7; } if (i==2) {Left_second=Panel7->Left; Top_second=Panel7->Top; change();Panel7->Top=Top_premier ; Panel7->Left=Left_premier ; } } //---------------------------------------------------------------------------   void __fastcall TForm1::Panel8Click(TObject *Sender) { i++; if (i==1) { Top_premier=Panel8->Top; Left_premier=Panel8->Left; premier=8; } if (i==2) {Left_second=Panel8->Left; Top_second=Panel8->Top; change();Panel8->Top=Top_premier ; Panel8->Left=Left_premier ; } } //---------------------------------------------------------------------------   void __fastcall TForm1::Panel9Click(TObject *Sender) { i++; if (i==1) { Top_premier=Panel9->Top; Left_premier=Panel9->Left; premier=9; } if (i==2) {Left_second=Panel9->Left; Top_second=Panel9->Top; change();Panel9->Top=Top_premier ; Panel9->Left=Left_premier ; } } //---------------------------------------------------------------------------   void __fastcall TForm1::Button1Click(TObject *Sender) { i++; if (i==1) { Top_premier=Panel1->Top; Left_premier=Panel1->Left; premier=1; } if (i==2) {Left_second=Panel1->Left; Top_second=Panel1->Top; change();Panel1->Top=Top_premier ; Panel1->Left=Left_premier ; } } //---------------------------------------------------------------------------   void __fastcall TForm1::Button2Click(TObject *Sender) { i++; if (i==1) { Top_premier=Panel2->Top; Left_premier=Panel2->Left; premier=2;} if (i==2) {Left_second=Panel2->Left; Top_second=Panel2->Top; change();Panel2->Top=Top_premier ; Panel2->Left=Left_premier ; } } //---------------------------------------------------------------------------   void __fastcall TForm1::Button3Click(TObject *Sender) { i++; if (i==1) { Top_premier=Panel3->Top; Left_premier=Panel3->Left; premier=3; } if (i==2) {Left_second=Panel3->Left; Top_second=Panel3->Top; change(); Panel3->Top=Top_premier ; Panel3->Left=Left_premier ; } } //---------------------------------------------------------------------------   void __fastcall TForm1::Button4Click(TObject *Sender) { i++; if (i==1) { Top_premier=Panel4->Top; Left_premier=Panel4->Left; premier=4 ; } if (i==2) {Left_second=Panel4->Left; Top_second=Panel4->Top; change(); Panel4->Top=Top_premier ; Panel4->Left=Left_premier ; } } //---------------------------------------------------------------------------   void __fastcall TForm1::Button5Click(TObject *Sender) { i++; if (i==1) { Top_premier=Panel5->Top; Left_premier=Panel5->Left; premier=5; } if (i==2) {Left_second=Panel5->Left; Top_second=Panel5->Top; change(); Panel5->Top=Top_premier ; Panel5->Left=Left_premier ; } } //---------------------------------------------------------------------------   void __fastcall TForm1::Button6Click(TObject *Sender) { i++; if (i==1) { Top_premier=Panel6->Top; Left_premier=Panel6->Left; premier=6; } if (i==2) {Left_second=Panel6->Left; Top_second=Panel6->Top; change();Panel6->Top=Top_premier ; Panel6->Left=Left_premier ; } } //---------------------------------------------------------------------------   void __fastcall TForm1::Button7Click(TObject *Sender) { i++; if (i==1) { Top_premier=Panel7->Top; Left_premier=Panel7->Left; premier=7; } if (i==2) {Left_second=Panel7->Left; Top_second=Panel7->Top; change();Panel7->Top=Top_premier ; Panel7->Left=Left_premier ; } } //---------------------------------------------------------------------------   void __fastcall TForm1::Button8Click(TObject *Sender) { i++; if (i==1) { Top_premier=Panel8->Top; Left_premier=Panel8->Left; premier=8; } if (i==2) {Left_second=Panel8->Left; Top_second=Panel8->Top; change();Panel8->Top=Top_premier ; Panel8->Left=Left_premier ; } } //---------------------------------------------------------------------------   void __fastcall TForm1::Button9Click(TObject *Sender) { i++; if (i==1) { Top_premier=Panel9->Top; Left_premier=Panel9->Left; premier=9; } if (i==2) {Left_second=Panel9->Left; Top_second=Panel9->Top; change();Panel9->Top=Top_premier ; Panel9->Left=Left_premier ; } } //---------------------------------------------------------------------------   //---------------------------------------------------------------------------

---

Code:

---

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 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75

//---------------------------------------------------------------------------   #ifndef Unit1H #define Unit1H //--------------------------------------------------------------------------- #include <Classes.hpp> #include <Controls.hpp> #include <StdCtrls.hpp> #include <Forms.hpp> #include <ExtCtrls.hpp> #include "SHDocVw_OCX.h" #include <OleCtrls.hpp> //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // Composants gérés par l'EDI TPanel *Panel1; TPanel *Panel2; TPanel *Panel3; TPanel *Panel4; TPanel *Panel5; TPanel *Panel6; TPanel *Panel7; TPanel *Panel8; TPanel *Panel9; TCppWebBrowser *CppWebBrowser1; TButton *Button1; TButton *Button2; TButton *Button3; TButton *Button4; TPanel *Panel10; TButton *Button5; TButton *Button6; TButton *Button7; TButton *Button8; TButton *Button9; TCppWebBrowser *CppWebBrowser2; TCppWebBrowser *CppWebBrowser3; TCppWebBrowser *CppWebBrowser4; TCppWebBrowser *CppWebBrowser5; TCppWebBrowser *CppWebBrowser6; TCppWebBrowser *CppWebBrowser7; TCppWebBrowser *CppWebBrowser8; TCppWebBrowser *CppWebBrowser9; void __fastcall FormCreate(TObject *Sender); void __fastcall Panel1Click(TObject *Sender); void __fastcall Panel2Click(TObject *Sender); void __fastcall Panel3Click(TObject *Sender); void __fastcall Panel4Click(TObject *Sender); void __fastcall Panel5Click(TObject *Sender); void __fastcall Panel6Click(TObject *Sender); void __fastcall Panel7Click(TObject *Sender); void __fastcall Panel8Click(TObject *Sender); void __fastcall Panel9Click(TObject *Sender); void __fastcall Button1Click(TObject *Sender); void __fastcall Button2Click(TObject *Sender); void __fastcall Button3Click(TObject *Sender); void __fastcall Button4Click(TObject *Sender); void __fastcall Button5Click(TObject *Sender); void __fastcall Button6Click(TObject *Sender); void __fastcall Button7Click(TObject *Sender); void __fastcall Button8Click(TObject *Sender); void __fastcall Button9Click(TObject *Sender);     private: // Déclarations de l'utilisateur public: // Déclarations de l'utilisateur __fastcall TForm1(TComponent* Owner);   void TForm1::change(); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif

---

Merci, je vais regarder ca