Drag & Drop/Dock zwischen Formularen

[emsländer]

am einfachsten geht das hiermit (ist die "Drop Accept")

Delphi-Quellcode:

unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls,ShellAPI; 

type 
  TForm1 = class(TForm) 
    Edit1: TEdit; 
    procedure FormCreate(Sender: TObject); 
  private 
    procedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES; 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
   DragAcceptFiles(Self.Handle, True); 
end; 

procedure TForm1.WMDropFiles(var Message: TWMDropFiles); 
var 
  Buffer: array[0..MAX_PATH] of Char; 
begin 
  DragQueryFile(Message.Drop, 0, @Buffer, SizeOf(Buffer)); 
  Edit1.Text := Buffer;  // hier Deine Verarbeitung
end; 

end.

Gruss

EL