Drag & Drop

[Natcree]

Delphi-Quellcode:

procedure TForm1.SchaltflaecheMouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
    if (sender is TLMDDockSpeedButton) then
    TLMDDockSpeedButton(Sender).Left:=Panel2.Left;
    TLMDDockSpeedButton(Sender).top:=Panel2.top;
    TLMDDockSpeedButton(Sender).BringToFront;
  if [ssLeft,ssRight]*Shift<>[] then exit;
end;

Das funktioniert schonmal wie bekomme ich es hin das er statt panel2 das Panel nimmt wo der Mauszeiger ist?