Ziehen von Objekten mit der Maus

[Martin Rupprecht]

Hallo,

wie kann ich ein Objekt, z.B. ein Panel, zur Programmlaufzeit mit der Maus ziehen und dabei den Umriss und die Position des
Objekts anzeigen (wie es z.B. in der Entwicklungsumgebung von Delphi der Fall ist) ?

Bin für jeden Tipp dankbar

Martin

[Cesario Lababidi]

Hallo Martin,

Ich verwende TStretchHandle V2.0. Diese Komponente findest in der DSP.

Ich hoffe, dass ich dir damit geholfen haben.
Wenn du weitere Fragen hast, dann mailen [email protected]

[Martin Kunte]

Hi Martin

Folgende Prozedur dürfte für alle Komponente mir MouseDown Ereignis funktionieren.

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
TWinControl(Sender).Perform (WM_LButtonUp, 0, 0);
TWinControl(Sender).Perform (WM_SysCommand, SC_Move + 2, 2)
end

[Martin Kunte]

Hi Martin<br><br>

Folgende Prozedur dürfte für alle Komponente mit MouseDown Ereignis funktionieren.<br>

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);<br>
begin<br>
TWinControl(Sender).Perform (WM_LButtonUp, 0, 0);<br>
TWinControl(Sender).Perform (WM_SysCommand, SC_Move + 2, 2)<br>
end;<br&gt