Form mit der Maustaste bewegen!

[NeoDeluxe]

Moin.
Ich würd gerne wisen wie man Forms mit der rechten Maustaste bewegen kann. Unter bewegen versteh ich die Funtion des Windows Verschieben! Also kann das jemand? :coder:

[Luckie]

Delphi-Quellcode:

var
  Form1: TForm1;
  m    : TPoint;
  d    : Boolean = False;

implementation

{$R *.dfm}



procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = (mbRight) then
  begin
    d := True;
    m.x := x;
    m.y := y;
  end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if not d then Exit;
  Form1.Left := Form1.Left + x - m.x;
  Form1.Top := Form1.Top + y - m.y;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  d := False;
end;

[NeoDeluxe]

Super :hello: ! Funktioniert Problemlos :mrgreen:

[sakura]

Etwas einfacher, schon im Forum Diskutiert:

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = (mbRight) then
  begin
    ReleaseCapture;
    Self.Perform(WM_SYSCOMMAND, SC_MOVE, 0);
  end;
end;

...:cat:...

[NeoDeluxe]

Is auch net schlecht. Vielen Dank! :mrgreen:

[profiz]

Ich hab beide mal ausprobiert, bei mir funktioniert aber beides nicht. Ich würd sagen das es daran leigt, das ich eine Grafik oben drüber gelegt hab. Da ich keine Symbolleiste haben will. Was muss ich machen, damit auch bei mir geht???

[sakura]

Du musst das OnMouseDown der Grafik nutzen ;-)

...:cat:...

[profiz]

Danke, funktioniert