Discussion :

[mickl1722]

bonjour, j'aimerais déplacer horizontalement un objet dépendant de la souris, mais tout en prenant en compte la fenêtre.
Pourriez vous m'aider de nouveau ?

[Paul TOTH]

ben voila un sujet pour le prochain défi Delphi (ou Pascal), un casse briques

d'autre part il serait plus judicieux de n'ouvrir qu'un seul sujet "comment faire un casse briques" pour y mettre toutes tes questions de débutant qui ne fait pas l'effort de chercher

[mickl1722]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure TFormMain.PanelGameMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  // Gestion des mouvements de la Raquette
  Raquette.Left:=X-(Raquette.Width div 2);
  if Raquette.Left <= 0 then Raquette.Left := 10;
  if ((Raquette.Left+Raquette.Width) >= PanelGame.Width) then
        Raquette.Left := PanelGame.Width-(Raquette.Width+10);
end;

Et voilà.