Drag'n'Drop

[semo]

erst einmal: schön dass du das nun auch mit dem quellcode formatieren hier im forum gefunden hast

Delphi-Quellcode:

procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  TPanel(Source).left := x;
  TPanel(Source).top := y;
  TPanel(source).parent := TWinControl(Sender);
end;

bedeutet dass alle Nachfahren von TPanel auf deinem Formular gedroppt werden dürfen.
Wenn du jedoch

Delphi-Quellcode:

procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  Panel1.left := x;
  Panel1.top := y;
  Panel1.parent := TWinControl(Sender); 
end;

verwendest, erlaubst du nur dem Panel1 auf dem Form gedroppt zu werden.