Форум: "Начинающим";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];
Вниз
Drag n Drop для файлов из проводника с использованием OnDragOver Найти похожие ветки
← →
Dr. Genius (2006-10-16 11:19) [0]Здравствуйте!
Нужен пример Drag"n"Drop"а (для файлов из проводника) с использованием OnDragOver, т.к. мне надо манипулировать с Boolean-переменной Accept.
← →
DVM © (2006-10-16 18:42) [1]
> с использованием OnDragOver
Не выйдет. Через OLE Drag"n"Drop надо
← →
Dr. Genius (2006-10-17 11:37) [2]
> Через OLE Drag"n"Drop надо
Как?
← →
Окся (2006-10-17 14:43) [3]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, shellapi;
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
procedure WMDropFiles(var Message: TMsg); message WM_DROPFILES;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Handle,true);
end;
procedure TForm1.WMDropFiles;
var H,x,j:integer;
s:array[0..255] of char;
c:string;
BEGIN
h:=Message.message;
x:=DragQueryFile(h,$0FFFFFFFF,s,255);
DragQueryFile(h,0,s,255);
c:=string(s);
Memo1.Lines.Add(c);
for j:=1 to x-1 do
begin
DragQueryFile(h,j,s,255);
c:=string(s);
Memo1.Lines.Add(c);
end;
END;
end.
← →
DVM © (2006-10-17 15:48) [4]
> Окся (17.10.06 14:43) [3]
Не надо советовать то, в чем не очень разбираешься.
WM_DROPFILES приходит окну только когда файлы уже "бросили на окно". Узнать, что это за файлы до этого момента нельзя. Написано же:
> т.к. мне надо манипулировать с Boolean-переменной Accept.
> Dr. Genius (17.10.06 11:37) [2]
>
> > Через OLE Drag"n"Drop надо
>
>
> Как?
Реализовать интерфейсы IDropTarget и т.д.
http://podgoretsky.com/ftp/Docs/Delphi/D3/D3ProgLib/index.htm
3, 4 главы. Правда там ошибки есть.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.055 c
