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.