Drag / Drop Tutorial

[haentschman]

...aufwärm...

ich habe mal ein bischen rumgespielt...

und...

1. ShellApi eingebunden

2.

Delphi-Quellcode:

private
    { Private-Deklarationen }
    procedure DropFiles (var Msg: TMessage); message WM_DROPFILES;

3.

Delphi-Quellcode:

procedure TFAnlagenkomponenten.FormCreate(Sender: TObject);
begin
  DragAcceptFiles(FAnlagenkomponenten.ListBox1.Handle, true);
end;

4.

Delphi-Quellcode:

procedure TFAnlagenkomponenten.DropFiles(var Msg: TMessage);
var
  i, anzahl, size: integer;
  Dateiname: PChar;
begin
  inherited;
  anzahl := DragQueryFile(Msg.WParam, $FFFFFFFF, Dateiname, 255);
  for i := 0 to (anzahl - 1) do
  begin
    size := DragQueryFile(Msg.WParam, i , nil, 0) + 1;
    Dateiname:= StrAlloc(size);
    DragQueryFile(Msg.WParam,i , Dateiname, size);
    Label2.Caption:= intToStr(size);
    Label3.Caption:= StrPas(Dateiname);
    ListBox1.items.add(StrPas(Dateiname));
    StrDispose(Dateiname);
  end;
  DragFinish(Msg.WParam);
end;

... die Procedure 4. wird nicht angesprungen.

... bis auf ein paar Labels für die Visualisierung und procedure Namensänderung hat sich zum Beispiel nichts verändert

Danke für Eure Geduld...