Objekte bewegen

[DeddyH]

Wenn die Beschränkung auf die X-Achse nur zur Übung war, könnte man das auch anders machen (es sei denn, ich habe die Aufgabenstellung falsch verstanden).

Delphi-Quellcode:

type
  TfrmTest = class(TForm)
    ...
  private
    { Private-Deklarationen }
    procedure MoveControl(const Control: TControl);
    ...
  end;

...

procedure TfrmTest.MoveControl(const Control: TControl);
const SC_DRAGMOVE = $F012;
begin
  ReleaseCapture;
  Control.Perform(WM_SYSCOMMAND,SC_DRAGMOVE,0);
end;

procedure TfrmTest.PanelMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then
    MoveControl(Sender as TControl);
end;