Как переташить файл на к.л. компонент программы?

← →
ronyn (2005-05-05 04:09) [0]

Хочу переташить файл на мою программу, z.B. звуковые файлы перетащить из папки в список воспроизведения. Пожайлуста помогите. Заранее благодарен.

← →
Antonn © (2005-05-05 07:57) [1]

protected
procedure CreateParams(var Params: TCreateParams); override;
private
procedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES;
...

procedure TForm.CreateParams(var Params: TCreateParams);
begin
inherited
CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_ACCEPTFILES;
end;

procedure TForm.WMDropFiles(var Message: TWMDropFiles);
var aFile: array [0..255] of Char; FilesCount,N : Integer;
begin
inherited;
FilesCount := DragQueryFile(Message.drop, $FFFFFFFF, nil, 0);
begin
for N := 0 to FilesCount - 1 do begin
DragQueryFile(Message.drop, N, aFile, 256);
//В aFile хранится путь и название файла, тут добавляешь как тебе надо и куда надо
end;
end;
DragFinish(Message.Drop);
end;

← →
ronyn (2005-05-07 22:15) [2]

Почему то не получается. По курсору видно, что файлы перетащить можно, но в ЛистБокс файлы не добавляются. Может я что-то не правильно делаю, не знаю...Хотелось бы побольше коментариев к коду, т.к. я начинающий. Заранее спасибо.

← →
easy © (2005-05-07 22:38) [3]

http://delphimaster.ru/articles/dragndrop/index.html

← →
Antonn © (2005-05-08 05:51) [4]

ronyn (07.05.05 22:15) [2]

> //В aFile хранится путь и название файла, тут
> добавляешь как тебе надо и куда надо

под этим пишешь:
ListBox1.items.add(aFile);

← →
ronyn (2005-05-10 02:01) [5]

Он требует, что бы я идентифицировал DragQueryFile. Как его прописать в разделе var, какой тип?

← →
Marser © (2005-05-10 02:09) [6]

> ronyn (10.05.05 2:01) [5][Ответить]

Это функция API. Нажми F1

← →
ronyn (2005-05-10 02:36) [7]

Нажал, а том вот что

The compiler could not find the given identifier - most likely it has been misspelled either at the point of declaration or the point of use. It might be from another unit that has not mentioned a uses clause.

program Produce;
var
Counter: Integer;
begin
Count := 0;
Inc(Count);
Writeln(Count);
end.

In the example, the variable has been declared as "Counter", but used as "Count". The solution is to either change the declaration or the places where the variable is used.

program Solve;
var
Count: Integer;
begin
Count := 0;
Inc(Count);
Writeln(Count);
end.

In the example we have chosen to change the declaration - that was less work.

Ничего не понятно. Как же все таки необходимо избавиться от ошибки [Error] Unit3.pas(79): Undeclared identifier: "DragQueryFile"? Курсор остнавливается на надписи в коде - FilesCount := DragQueryFile(Message.drop, $FFFFFFFF, nil, 0);

> Как же все таки необходимо избавиться от ошибки

Просто.
uses ShellAPI

← →
ronyn (2005-05-10 02:54) [9]

ошибка устранена. Но перетаскиваемый файл не помещается в ЛистБокс. может быть с переменной aFile нужно ещё что-то делать?

Как переташить файл на к.л. компонент программы? Найти похожие ветки