Drag&Drop

[nailor]

Sorry, dass ich deinen Code so verstümmelt habe, aber warum geht das nicht?

Delphi-Quellcode:

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

procedure WMDROPFILE(var msg: TMessage);

procedure TForm1.WMDROPFILE(var msg: TMessage);
var
  hDrop: cardinal;
  fName: array[0..MAX_PATH] of char;
begin
hDrop := Msg.WParam;
fName := '' ;
DragQueryFile(hDrop, 0, fName, MAX_PATH);
ShowMessage('*' + string(fName) + '*');
//LabeledEdit1.Text := string(fName);
DragFinish (hDrop);
end;

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

Es kommt noch nichtmal eine MessageBox mit zwei Sternchen, aber der Drag&Drop-Zeiger kommt