Drag og drop panel

Håber du kan bruge dette:

procedure TForm1.Button1Click(Sender: TObject);
var
  Panel: TPanel;
begin
  Panel := TPanel.Create(self);
  Panel.Cursor := crdrag;
  Panel.DragMode := dmAutomatic;
  Panel.DragKind := dkDock;
  Panel.Top := 10;
  Panel.Left := 10;
  Panel.Width := 50;
  Panel.Height := 25;
  Panel.Parent := Panel1;
end;




Du kan også prøve den her jeg lavede:
  .....
    procedure APanelMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.APanelMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  (Sender as TControl).Perform(WM_SysCommand, SC_DragMove, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Panel: TPanel;
begin
  Panel := TPanel.Create(self);
  Panel.Cursor := crdrag;
  Panel.OnMouseMove := APanelMouseMove;
  Panel.Top := 10;
  Panel.Left := 10;
  Panel.Width := 50;
  Panel.Height := 25;
  Panel.Parent := Panel1;
end;


Sig til hvis der er noget som giver problemer

Mange tak for hjælpen. Så vil jeg lige spørge dig om en sidste ting så skal du nok få dine point. Hvordan kan jeg finde ud af hvilken MDIChild der er aktiv, altså hvilken af dem der arbejdes på, altså den øverste hvis du forstår?? For så vil jeg nemlig create panelet oven på den MDIChild der er aktiv.

MainForm.ActiveMDIChild .....

Jeg fandt selv ud af det med det aktive mdi.. osv. Tak for hjælpen dkn.

Nå jo.. En sidste ting, jeg ved godt at jeg har givet dig pointene, men jeg håber at du alligevel lige gider at sige mig hvordan jeg kan lave koden så man også kan dragge panelet ud af den mdichild hvor det blev dannet og hen i en anden. Hvis det ikke er et for stort problem.

/Mikkel

skal jeg nok, vil lige se på det

det er ikke særlig svært hvis du bruger delphis dock evner.

Først slår du UseDockManager fra, på alle ring (både den som skal flyttes og skal kunne modtage):
UseDockManager := false;

Panel som skal kunne flyttes:
Dragmode := dmAutomatic;
Dragkind := dkDock;

Modtager panel:
Docksite := True;

så skulle den være der.

fik du det til at virke?

Yeshyesh.. Jeg brugte ikke dock.

Eller jeg fik det ikke til at virke, jeg brugte ikke dock, for så bliver den til et vindue for sig, hvis jeg slipper den uden for docksite, og den ændrer størrelse og sådan noget når jeg slipper den inden for docksite, såh.. Men jeg fandt en anden måde at gøre det på.