Bouger une image sur une form en cliquant dessus et en bougeant la sourisRésolu

Question

Salut &#224; tous! Voila, ce que j'aimerais faire, c'est un petit programme de conception graphique, alors, j'ai une image1, et j'aimerais la faire glisser sur la form pour que l'user puisse choisir son emplacement. Sauriez-vous m'ider ? Ca se passe dans l'evenement on Mouse Move non ?
A+


[url]www.yiliman2201.be.tf/url
      Mon site !

Nicolas___ · Accepted Answer

voila ben tu places ton Timage ds un panel et tu fais ceci 
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
ReleaseCapture;
  panel1.Perform(WM_SYSCOMMAND, $F012, 0);
end;

je sais pas prq mais ca marche pas directement   ac un Timage slt

Nicolas___ · Answer

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ReleaseCapture;
  form1.Perform(WM_SYSCOMMAND, $F012, 0);
end;

Nicolas___ · Answer

non tromper de sujet mais c un truc du genre

Yil2201 · Answer

Ok, merci b&#234;aucoup, je me suis inspir&#233; de ta r&#233;ponse et d'une source dont je ne toruve plus l'url, ca fonctionne a merveille ! Merci pour cette r&#233;ponse si rapide!

[url]www.yiliman2201.be.tf/url
      Mon site !

Cirec · Answer

Salut,
la bonne commande est :

ReleaseCapture;
Perform (WM_SYSCOMMAND, SC_MOVE or HTCAPTION, 0);

parce que $F012 &#231;a veut rien dire 

@+
Cirec

jlen100 · Answer

salut, sans passer par un pannel: procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin with sender as Timage do begin if (ssLeft in Shift) then begin Top:=Top+Y; if Top< 0 then top:=0; if Top>Form1.Height-Height-32 then Top:=Form1.Height-Height-32 ; Left:=Left+X; if Left<0 then Left:=0; if Left>Form1.Width -Width then Left:=Form1.Width-Width ; end; end; end; @+ jlen

Cirec · Answer

oui &#231;a c'est la bonne vielle m&#233;thode qui fonctionne avec tout
comme quoi &#231;a peut toujours servir c'est un peut plus long mais tout aussi fonctionnel

@+
Cirec

jlen100 · Answer

surtout qu'avec perform si tu clique sur l'image &#231;a ne fonctionne pas
-->il faut obligatoirement cliquer sur le panel; ce qui n'est pas
vraiment l'effet recherch&#233;!!



@+

jlen

Cirec · Answer

euh d&#233;sol&#233; mais j'ai fait le teste et &#231;a fonctionne :

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
ReleaseCapture;
Perform (WM_SYSCOMMAND, SC_MOVE or HTCAPTION, 0);
end;

@+
Cirec

Cirec · Answer

oups pardon
c'est la form qui bouge et c'est pas l'effet recherch&#233; 
pardon

@+
Cirec

jlen100 · Answer

oui si tu veux bouger la form c'est nickel tu me diras vu que l'image est sur la form elle bouge aussi!!

@+

jlen

Nicolas___ · Answer

@Jlen
en meme temps il suffit de mettre la taille du panel = a la taille de l'image ou du moins 2 voir 3 pixels plus grand de chaque cote pr que ca marche et que se ne soit pas trop genant mais c est sur que ta methode est pile poil ce que tu demandais ...

Ciao

jlen100 · Answer

ce que j'ai voulu dire c'est que pour ta m&#233;thode fonctionne il faut
obligatoirement cliquer en dehors de l'image car si tu clique sur
l'image c'est celle-ci qui intercepte le message et il ne se passe
rien: c'est la meme chose que si elle &#233;tait plac&#233;e directement sur la
form.

Ce qui rend le fonctionnement plutot d&#233;sagr&#233;able sutout si tu mets les
propri&#233;t&#233;s bevelinner et bevelouter du panel &#224; bsnone  mais bon l&#224;
je chipote



@+

jlen

Cirec · Answer

@ Nicolas__ 
as-tu vu la pr&#233;cision que j'ai apport&#233; sur le code plus haut, ce qui permet de comprendre ce que $F012 signifie

@+
Cirec

Nicolas___ · Answer

@Jlen oui c juste ...
@ Cirec Merci,moi meme je ne savais pas ce que cela voulait dire , je connaissais juste l astuce 

Ciao

wolf691300 · Answer

Les codes les plus court et les plus simples sont parfois les meilleurs codes ...



Bonne programmation &#224; vous tous  ... ((( "travailler c'est s'amuser ..."



Wolf691300.

Bouger une image sur une form en cliquant dessus et en bougeant la souris

16 réponses

Votre réponse

Discussions similaires