Button mit Maus verschieben

[Alexander Roth]

So wie ich das verstehe, werden beim createn die ereignisse von form1 und button auf Methoden dieser Klasse umgeleitet und die eigenschaften (left, top) der Komp werden entsprechend verändert.

Gruß Alexander

[Nils_13]

Hm...ich habe einfach alles abkopiert, um es zu testen, aber bei mir wird bei genau dem gleichen Code nur die Form verschoben, sonst nichts.

[Mazel]

Hallo,

also wesentlich einfacher geht es so, wenn ich dein Bedürfnis richtig verstanden habe:

Delphi-Quellcode:

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  //Fängt alle Mausereignisse ab
  ReleaseCapture;
  // mit TWinCotrol verschieben, $F012 verschiebt den Button
  TWinControl(Sender).Perform(WM_SYSCOMMAND, $F012, 0);
end;

Gruß
Mazel

[Nils_13]

Hey, das funktioniert ja richtig gut Kann man eigentlich noch was direktes für die Größenveränderung machen (6 Punkte und damit rezisen) ?

[Mazel]

Jo, das geht auch:

Statt $F012 kannst du folgende Werte verwenden:

$F001 - ändert Größe nach Links
$F002 - ändert Größe nach Rechts
$F003 - ändert Größe nach Oben
$F006 - ändert Größe nach Unten

$F004 - ändert Größe nach Links, Oben
$F005 - ändert Größe nach Rechts, Oben
$F007 - ändert Größe nach Links, Unten
$F008 - ändert Größe nach Rechts, Unten

Gruß
Mazel

[delphi_help]

Also, kann man das ganze auch mit OnMouseMover machen, außerdem: wie kann man den Button denn verschieben, ohne auf die Maus zu klicken, es soll eher fü eine Art Spiel (ähnlich wie Magnoid) werden.

Danke

[_frank_]

wenn du es ähnlich dem Editor aus der Delphi-IDE machen willst, versuch mal TSizeCtrl von http://angusj.com/delphi/
die Komponente hab ich in meinem DFM-Editor verwendet und funktioniert sehr gut. Ich bin niemand der für jedes kleine Problem eine Komponente installiert, aber diese nimmt einem sehr viel Arbeit ab...

HTH Frank

[platan1]

Hallo

Suche schon länger nach einer einfachen Art Komponenten zur Laufzeit zu verschieben.
Hab das hier zufällig entdeckt, und es funct super.
Aber ist es möglich das normales Klick Ereignis des Buttons zu kriegen, und erst
wenn man die Maus mit gedrücker li. Taste zb. 5 Pixel bewegt, der Button verschoben wird.
Und das man das beliebig oft wiederholen kann.

Danke mfG.

[Cyberbob]

Joa, damit kann man alle Komponeten verschieben. Buttons, Panles, Forms. Einfach genial.
Sowas kann man immer mal verwenden.

[cruiser]

Edit: Das war wohl nix...

@Platan: fang on MouseDown ab, merk dir die Koordinate und verrechne die Koordinate von OnMouseMove damit