Deplacer un composantRésolu

Question

hello ;p



j'ai un composant Tcapture qui affiche un flux videos provenant d'une webcam. Cette classe herite de TcustomControl.



J'aimerais que l'utilisateur puisse deplacer ce composant. Pour cela il
faudrait qu'il clique sur le composant, bouge la souris puis relache le
bouton de la souris.



C'est possible de r&#233;aliser ca avec Delphi ?



merci d'avance.

DeltaFX · Accepted Answer

Allez, Vlan !

Cr&#233;ation dynamique :
MyArrayOfCapture.Capt[i]:=Tcapture.Create(nil);

Dans la foul&#233;e....

MyArrayOfCapture.Capt[i].OnClick:=CaptureArrayOnClick;

O&#249; CaptureArrayOnDblClick, c'est le nom de la fonction qui gerera le click pour tout tes Tcapture (fonction que tu cr&#233;&#233;es dans un coin de ton prog) et tu devras d&#233;terminer quel Tcapture &#233;tait vis&#233;.

C'est juste une piste.

jlen100 · Answer

salut tu peux deplacer un composant en cliquant desus . utilises le evenement OnMouseDown pour initialiser le depalcement, OnMouveMove pour visualiser le deplacement et OnMouseUp ppour memoriser la position ça peut de donner quelque chose comme cela: procedure TForm1.MoncomposantMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Moncomposant.Tag:= 1; // iniatlise le deplacement end ; procedure TForm1.MoncomposantMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin with sender as TMoncomposant do begin if Tag =0 then exit;// sortie si pas initialisé Top:= Top+Y; if Top< 0 then top: =0; if Top>TForm1.Height-Height-32 then Top:= TForm1.Height-Height-32 ; Left:=Left+X-Width div 2; if Left<0 then Left: =0; if Left>TForm1.Width -Width then Left:= TForm1.Width-Width ; end ; end; procedure TForm1.MoncomposantMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Moncomposant.Tag: =0; end; dans cet exemple lorsque l'on commence le deplacement le curseur se place en haut au milieu du composant. Les valeurs seront certainement a ajuster. bonne prog

ffomnislash · Answer

merci de ton aide, je testerait ca dans la journ&#233;e ;p

DeltaFX · Answer

Plutot que de jouer avec le tag dans les MouseUp et MouseDown, tu peux aussi tester l'appui maintenu d'une touche dans le MouseMove:

if (ssLeft in Shift) //t'es en train de remuer la 
                     //souris avecle bouton gauche
                     //enfonc&#233;...donc y a ssRight de
                     //dispo aussi..
 then "move le composant";

gnh !

ffomnislash · Answer

Arf je me retrouve face &#224; un autre pb n'&#233;tant pas li&#233; au d&#233;placement.



Je n'utilise pas mon composant Tcamera comme un composant. Le probleme
c'est que l'utilisateur peut en enlever/en ajouter, je ne sais donc pas
combin en mettre lors de la cr&#233;ation de l'&#233;pplication.



J'utilise donc un tableau de composant Tcapture, et je cr&#233;/supprime des cases de ce tableau.



Mon probleme est donc, comment je peut lier un evenement &#224; un composant utilis&#233; de cette facon?



dsl mais je ne connait pas vraiment grand chose a Delphi :p

ffomnislash · Answer

ok merci, la 1ere ligne je l'avais, c'est la 2eme qu'il me manquait.



Je vous remercie tous. Je mettrais tous ceci en place dans la journ&#233;e ou demain et je validerait le sujet si tous se passe bien.

florenth · Answer

Mais dans l'&#233;venement, tu ne dois pas mettre Capture1.[...] mais (Sender as TCapture).[...] .
Le parametre Sender sp&#233;cifie l'objet qui &#224; d&#233;clench&#233; l'&#233;venement.
(Sender as TCapture) permet de le transtyper en TCapture pour pourvoir utiliser ses propri&#233;t&#233;s.

@ ++ Flo

Si tu ne te plantes pas ......
tu ne poussera jamais

DeltaFX · Answer

Achtung aussi au nombre de Tcapture dont tu autorises la cr&#233;ation, c'est que ca va bouffer des ressources cpu/system tr&#232;s vite.

gnh.....Plouf. !

cs_Delphiprog · Answer

Par la m&#234;me occasion, voir aussi : 

How to Move and Resize Controls at Run Time




Jlen100 : il n'est pas possible d'&#233;crire 

if Top>TForm1.Height-Height-32   then    Top:= TForm1.Height-Height-32 ;

mais plut&#244;t :

 if  Top>Form1.Height-Height-32   then    Top: =Form1.Height-Height-32 ;



Il faut utiliser les propri&#233;t&#233; de l'instance de la classe et non celles de la classe TForm1.

Idem quelques lignes plus bas pour la largeur.

<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
http://www.croix-rouge.fr/index/partner_campagne.html

jlen100 · Answer

delphiprog effectivement une erreur de recopie de la procedure que j'utilise la procedure initiale était: if Tag= 0 then exit; Top:=Top+Y; if Top< 0 then top:=0; if Top>ModuleDeCommande.Height-Height-32 then Top:=ModuleDeCommande.Height-Height-32 ; Left:=Left+X-Width div 2; if Left<0 then Left:=0; if Left>ModuleDeCommande.Width -Width then Left:=ModuleDeCommande.Width-Width ; ref : deplacement de la fenetre de gestion de programme du module de commande!! j'ai voulu remplacer ModuleDeCommande par Form1 et je ne suis planté il faut donc lire: procedure TForm1.MoncomposantMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin with sender as TMoncomposant do begin if Tag =0 then exit; // sortie si pas initialisé Top: = Top+Y; if Top< 0 then top: =0; if Top>Form1.Height-Height-32 then Top:= Form1 .Height-Height-32 ; Left: =Left+X-Width div 2; if Left<0 then Left:= 0; if Left>Form1.Width -Width then Left: =Form1.Width-Width ; end; désolé pour le désagréement end; jlen

cs_Delphiprog · Answer

Je me doutais bien que, venant de toi, ce ne pouvait &#234;tre qu'une
malheureuse erreur de  recopie faite trop vite. Ca arrive &#224; tout
le monde.

L'essentiel est qu'aucun ordinateur n'ait &#233;t&#233; maltrait&#233; pendant ce temps l&#224; 

<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
http://www.croix-rouge.fr/index/partner_campagne.html

jlen100 · Answer

satan&#233; copi&#233;/coll&#233;. D'autan que je n'avais retest&#233; ce morceau de code
puisqu'il fonctionne dans le programme que j'ai post&#233; Mea culpa : Ne
jamais donner de code que l'on n'ait pas tester!! ...m&#234;me si la
modification est minime . Quand aux ordinateurs ils sont beaucoup moins
fragiles que les cartes &#224; microcontroleurs ( elles n'aiment pas du tout
que l'on connecte 2 sorties entre elles (m&#234;me par erreur en manipulant
un gripfil directement sur les pattes!!!)

ffomnislash · Answer

merci a tous j'ai r&#233;ussi &#224; mettre tous ceci en place.



jlen100=> merci j'avais vu et corrig&#233; l'erreur.



DeltaFX => C'est bon je ne pense pas avoir abus&#233;, j'ai limit&#233; a 10.

DeltaFX · Answer

Pfui ! 10 Tcapture ?  Tu connectes quoi comme hardware derriere ? des webcams (USB1.1 ou Highspeed ?) des cartes de captures video ? Elles passent en overlay ou bien tu force un preview dessus ?

Quelle plateforme cible , sans indiscretion ?

Deplacer un composant

14 réponses

Votre réponse

Discussions similaires