Komponenten verschiebbar / Größe veränderbar

[cyborg]

das mit dem Dragging habe ich so gelöst:

Delphi-Quellcode:

procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
VAR S: TControl;
begin
Accept:=TRUE;
S:=Source as TControl;
S.Left:=X;
S.Top:=Y;
end;

Problem: wenn ich das bild nun verschieben will und es liegt ein anderes objekt auf dem panel, bekommt mein panel nicht die drag anweisung...
kann ich irgendwie die drag anweisung für die anderen objekte (zB das gedraggte bild selbst) verändern, oder muss ich nun bei dem bildobjekt ebenfalls ein OnDrag erstellen, welches es an das panel weiterleitet?

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]