Deplacement de fiche avec une imageRésolu

Question

Bonjours, je voudrai savoir comment faire pour d&#233;placer une form sur l'&#233;cran, (BorderStyle := bsNone) mais seulement quand on clique sur une image (OnMouseDown) et que le d&#233;placement s'arrete quand on relache le bouton de la souris.

Merci d'avance 

...

cs_ahmed12 · Accepted Answer

essaie ca ,sa deverait  marcher 

Begine


ReleaseCapture;
SendMessage(form1.Handle, WM_SYSCOMMAND, $F012, 0);


end;

cs_ahmed12 · Answer

Sans barre de titre l'utilisateur ne peut d&#233;placer simplement la fen&#234;tre &#224; l'aide de la souris. Il est cependant possible de simuler ce fonctionnement lors d'un click sur la surface de la fiche. Cette m&#233;thode doit &#234;tre utilis&#233;e dans le cas d'un fiche ayant BorderStyle=bsNone.

Le code suivant doit &#234;tre ajout&#233; dans l'&#233;v&#232;nement OnMouseDown de la fiche : 


 

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Perform(WM_SysCommand, SC_MOVE, 0);
end;



Cette m&#233;thode peut aussi &#234;tre appliqu&#233;e &#224; tous les descendants de TWinControl.


ce code de faq de developpez.com par de nono40

flo160fr · Answer

D&#233;sol&#233;, mais ca marche pas... 

...

cs_ahmed12 · Answer

met Le code   dans l'&#233;v&#232;nement OnMouseDown de l'image  et pas la fiche

flo160fr · Answer

C'est ce que j'ai fait...
Quand on clique sur l'image, il pointer de la souris de d&#233;place en haut de la form et il se passe rien...

...

cs_ahmed12 · Answer

je vis voir attendez

flo160fr · Answer

Ca marche merci bcp !
...

cs_ahmed12 · Answer

bon programmation a bientot

flo160fr · Answer

Au passage, vous sauriez pas comment redimentionner une form, avec une
image ki est en bordure de cette form ? (toujours BorderStyle := bsNone)
...

...

Deplacement de fiche avec une image

9 réponses

Votre réponse

Discussions similaires