Editfelder in Laufzeit mit der Maus verschieben

[Michael Lamers]

Hi Leute,

weiß irgendjemand eine vernünftige Lösung, um Editfelder auf einem Panel in Laufzeit mit der Maus verschieben zu können? Ich habe momentan eine umständliche Version mit OnMouseDown/Up/Move gemacht, aber Probleme gibt es bei Editfeldern, da man nach einem Klick in das Edit-Feld den Cursor im Edit-Feld hat. Ich habe es auch schon über die Dock-Ereignisse probiert, aber irgendwie wird das Edit-Feld dann über das ganze Panel vergrößert. Hat irgendjemand eine Idee, wie man dieses Problem lösen kann?

Danke schon mal im Voraus

[Hagen Reddmann]

Hi

<pre>

procedure TForm1.Edit1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
ReleaseCapture;
TControl(Sender).Perform(wm_SysCommand, sc_Move or 1, 0);
end;
end;

</pre>

Hage

[Michael Lamers]

Danke für die Info!

Werde es gleich mal ausprobieren