Добрый день.
Помогите разобраться, пожалуйста.
Мне нужно, чтобы список файлов из проводника можно было перетащить на форму.
Очень много информации на просторах, в принципе, везде одинаковой.
Для тестирования вот такой код набросался (по найденным советам).
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
uses ...ShellAPI;
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
protected
procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses DragDropFiles;
procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Self.Handle, True);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
DragAcceptFiles(Self.Handle, False);
end;
procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var
I: Integer;
Catcher: TFileCatcher;
S: String;
begin
inherited; //<- вот сюда не заходит (тут debug breakpoint)
Catcher := TFileCatcher.Create(Msg.Drop);
try
for I := 0 to Pred(Catcher.FileCount) do
begin
S := S + Catcher.Files[i];
Memo1.Lines.Add(Catcher.Files[i]);
end;
finally
Catcher.Free;
end;
Msg.Result := 0;
MessageDlg(S, mtInformation, [mbok], 0);
end;
end.
Почему в процедуру TForm1.WMDropFiles не заходит выполнение, когда отпускаю кнопку мыши с висящими на ней файлами?
И сопутствующий вопрос (но это неважно): почему когда тащу файлы из эксплорера на форму, курсор меняется на драг-дроп "стрелку с плюсом", а если тащу из total commander - нет? (такая же фигня и, например, в TheBAT у меня - из проводника файлы в письмо тащутся, а из TC - нет)
Спасибо!
PS Delphi XE2, windows 10.
