Drag & Drop

[sx2008]

Ich sehe hier gleich 2 Fehler:

Delphi-Quellcode:

procedure TForm1.SchaltflaecheMouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
    if (sender is TLMDDockSpeedButton) then
    begin  // hat gefehlt
       TLMDDockSpeedButton(Sender).Left:=Panel2.Left;
       TLMDDockSpeedButton(Sender).top:=Panel2.top;
       TLMDDockSpeedButton(Sender).BringToFront;
    end; // hat gefehlt
  if [ssLeft,ssRight]*Shift<>[] then exit;  // völlig sinnlos, da kein weiterer Code folgt
end; 

// und warum werden die Parameter x und y übergeben obwohl dann die Position von "panel2" benützt wird ?