@Sebastian: An den genannten Einstellungen (hab mir auch das Video angeschaut) lag es nicht, die waren nämlich schon entsprechend gesetzt. Probier mal spaßeshalber folgendes:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 =
class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
procedure DropFiles(
var Msg: TMessage);
message WM_DROPFILES;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses
ShellAPI;
procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(
Handle, TRUE);
end;
procedure TForm1.DropFiles(
var Msg: TMessage);
begin
ShowMessage('
Drop');
end;
end.
Ziehe jetzt mal eine Datei aus dem Explorer auf dein Fenster, wenn das Proggi in der
IDE läuft und probiere es mal außerhalb der
IDE. Ich könnte wetten bei dir kommt innerhalb der
IDE auch das WM_DROPFILES nicht an.