Formular OnMouseDown bewegen

Jakob Schöttl · Beiträge: 929 Erhaltene Danke: 1 Delphi 7 Professional

hi,

Man sieht ja oft bei Programmen, dass man auf ein Formular klickt (nicht auf die Titelleiste!), und dieses dann herum ziehen kann.

Ich hab schon gesucht, aber finde leider nicht raus wie ich das bei meinem eigenen Form programmiere. Vielleicht mit einer WM, die ich an das Formular schicke?

Ich hoffe ihr könnt mir helfen.

Wonko · Beiträge: 69

Was spricht gegen die von Dir im Titel erwähnte Methode?: Bei MouseDown relative Position der Maus auf der Form ermitteln und im MouseMove die Position der Form so ändern, dass die relative Position Maus-zu-Form gleich bleibt (natürlich nur bei gedrückter Maustaste). Ist das zu langsam, so dass es ruckelt?

Jakob Schöttl · Beiträge: 929 Erhaltene Danke: 1 Delphi 7 Professional

Sorry für den Post, ich hab doch gerade was im Swiss Delphi Center gefunden:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DRAGMOVE = $F012;
begin
  if Button = mbleft then
  begin
    ReleaseCapture;
    Form1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
  end;
end;

Jakob Schöttl · Beiträge: 929 Erhaltene Danke: 1 Delphi 7 Professional

Wonko hat folgendes geschrieben:

Bei MouseDown relative Position der Maus auf der Form ermitteln und im MouseMove die Position der Form so ändern, dass die relative Position Maus-zu-Form gleich bleibt

ja, so hätte ich es wahrscheinlich machen können, aber da kam ich nicht alleine drauf.

Wonko hat folgendes geschrieben:

Ist das zu langsam, so dass es ruckelt?

Aber ich schätze so ist es doch noch eleganter. Danke trotzdem!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme