[behoben]Drag n Drop problem

[Spawnche]

naja peschai so ähnlich habe ich es ja auch

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  ....
  procedure WMDROPFILES(var Msg: TMessage); Message WM_DROPFILES;
  ....
  ....
  ....


procedure TForm1.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);
    showmessage(PCharFileName);
    StrDispose(PCharFileName);
  end;

  DragFinish(Msg.WParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DragAcceptFiles(handle, True);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  DragAcceptFiles(handle, false);
end;

Aber soweit kommt es ja erst garnicht da wie gesagt ich durchgehend egal wo auf der Form den not-possible cursor angezeigt bekomme, formcreate wird noch ausgeführt aber mehr auch nit.