Thema: Delphi Objekte bewegen

Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.656 Beiträge
 
Delphi 12 Athens
 
#1

Re: Objekte bewegen

  Alt 7. Okt 2009, 13:58
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;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat