Comment bouger un form avec un PanelRésolu

Question

salut !!!!

Il y a une facon de faire bouger le form en cliquan sur un panel ????

mon form : BorderStyle := bsNone

SkrypterZ

Nicolas___ · Accepted Answer

Salut essaye ca c mieux 

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ReleaseCapture;
  form1.Perform(WM_SYSCOMMAND, $F012, 0);
end;

Ciao

Cirec · Answer

Salut,
voici un petit exemple 

var
  Form1: TForm1;
  xx, yy : Integer;


implementation


{$R *.DFM}


procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  xx :=  x;  // Initialisation de la position
  yy := y;  // de la souris 
 end ;


procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
If ssLeft in Shift Then
    Begin
      Left : = Left + (x - xx);  // Ajuste la position de la Form 
      Top := Top + (y - yy); // par raport &#224; la position de la souris
    End;
end;


end.



@+
Cirec

Cirec · Answer

oui c'est claire, c'est m&#234;me beaucoup mieux, en m&#234;me temps il &#233;tait 4 heure du matin  et en plus &#231;a fonctionnait  



@+
Cirec

skrypterz · Answer

merci !!!!!! sa marche bien :P

SkrypterZ

Comment bouger un form avec un Panel

4 réponses

Votre réponse

Discussions similaires