[VISTA] Drag&Drop wird nicht ausgeführt!

[TheMiller]

Moin!

Ich habe mehrere Threads zum Thema Drag&Drop gelesen und die Codes mal ausprobiert. Doch ich habe das Problem, dass die Drag&Drop-Nachricht nicht abgefangen wird (warum auch immer). Auf dem Gebiet bin ich noch Neuling... Liegt es an Windows Vista? Hier mal "mein" Code. Ich habe ein neues Projekt angelegt und den Code aus den Threads importiert.

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TListBox = class(StdCtrls.TListBox)
  private
    procedure WMDROPFILES (var Msg: TMessage); message WM_DROPFILES;
end;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private

  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TListBox.WMDROPFILES (var Msg: TMessage);
var
  i, Counts, Size: Integer;
  PCharFileName: PChar;
begin
  inherited;

  PCharFileName := nil;
  Counts := DragQueryFile(Msg.WParam, $FFFFFFFF, PCharFileName, 255);

  for i := 0 to Counts - 1 do
  begin
    Size := DragQueryFile(Msg.WParam, i, nil, 0) + 1;
    PCharFileName := StrAlloc(Size);
    DragQueryFile(Msg.WParam, i, PCharFileName, Size);
    Items.Add(String(PCharFileName));
    StrDispose(PCharFileName);
  end;

  DragFinish(Msg.WParam);
end; 

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

end.

Wie gesagt, das Annehmen der Files funktioniert. Will heißen, dass das kleine Plus an der Maus erscheint, aber die WMDROPFILES-MSG wird nicht abgefangen und somit auch nicht zur ListBox hinzugefügt.


[EDIT]Es liegt definitiv an Windows Vista. Habe hier noch einen XP-Rechner rumstehen. Bei dem funktioniert es super... Was nun?[/EDIT]


Danke im Voraus!

Bye