Wie bastelt man einen einfachen Formular-Editor?

[Christian Seehase]

Moin Wormid,

nimm mal ein Formular, leg einen Button drauf und dann kommen in MouseDown, bzw. MouseUp des Button folgende Zeilen:

Delphi-Quellcode:

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Button1.Handle,WM_SYSCOMMAND,$F012,0);
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  SetCapture(self.Handle);
end;

Jetzt drück mal die Linke Maustaste auf dem Button, und Beweg' die Maus.

Vielleicht kannst Du ja was damit anfangen.