Форум: "Потрепаться";
Текущий архив: 2003.08.14;
Скачать: [xml.tar.bz2];

Вниз

drag and drop   Найти похожие ветки 

← →
Babenko Alexey   (2003-06-05 20:38) [0]

Люди, подскожите как таскать файлы из моего приложения в проводник. Если можно исходник или название используемых функций.
Таскать я хочу из Syslistview

---

← →
Anatoly Podgoretsky   (2003-06-05 20:45) [1]

Нужны не функции, а интерфейсы, названия их начинаются с IDrop

---

← →
nikkie   (2003-06-06 00:35) [2]

функция DoDragDrop + интерфейсы IDataObject и IDropSource

---

← →
Yanis   (2003-06-06 12:13) [3]


unit Unit1;

interface

uses
ShellAPI;



type
TForm1 = class(TForm)
Memo1: TMemo
FileNameLabel: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
protected
procedure WMDropFiles(var Msg: TMessage)
; message wm_DropFiles;
end;

var
Form1: TForm1;
implementation
{$R *.DFM}

procedure TForm1.WMDropFiles(var Msg: TMessage);
var
Filename: array[0 .. 256] of Char;
Count : integer;
begin
{Получаем количество файлов, на всякий случай}
nCount := DragQueryFile( msg.WParam, $FFFFFFFF,
acFileName, cnMaxFileNameLen);
{Получаем имя первого файла }
DragQueryFile( THandle(Msg.WParam),
0, {номер файла}
Filename,SizeOf(Filename) ) ;
{ открываем его }
with FileNameLabel do begin
Caption := LowerCase(StrPas(FileName));
( Caption)
unit Unit1;

interface

uses
ShellAPI;



type
TForm1 = class(TForm)
Memo1: TMemo
FileNameLabel: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
protected
procedure WMDropFiles(var Msg: TMessage)
; message wm_DropFiles;
end;

var
Form1: TForm1;
implementation
{$R *.DFM}

procedure TForm1.WMDropFiles(var Msg: TMessage);
var
Filename: array[0 .. 256] of Char;
Count : integer;
begin
{Получаем количество файлов, на всякий случай}
nCount := DragQueryFile( msg.WParam, $FFFFFFFF,
acFileName, cnMaxFileNameLen);
{Получаем имя первого файла }
DragQueryFile( THandle(Msg.WParam),
0, {номер файла}
Filename,SizeOf(Filename) ) ;
{ открываем его }
with FileNameLabel do begin
Caption := LowerCase(StrPas(FileName));
Memo1.Lines.LoadfromFile(Caption);
end;
{ даём сообщение о завершении процесса }
DragFinish(THandle(Msg.WParam));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Handle, True);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
DragAcceptFiles(Handle, False);
end;

end.




---

← →
MBo   (2003-06-06 12:22) [4]

>Yanis
Ты не так понял, надо наоборот

---

← →
Yanis   (2003-06-06 15:47) [5]

To MBo © (06.06.03 12:22), Babenko Alexey(05.06.03 20:38)

Извиняюсь если ввел кого-то в заблуждение. Действительно не так понял, потому что невнимательно прочитал.

---

← →
testthewest   (2003-06-06 15:57) [6]

SAMPLE: FileDragTest.exe Drags and Drops File in and out of an Application

http://support.microsoft.com/default.aspx?scid=kb;en-us;288929

---

← →
DVM   (2003-06-06 18:39) [7]

На сайте Подгорецкого есть книжка по Делфи, там подробно про OLE DragDrop написано.

---

← →
Babenko Alexey   (2003-06-10 21:55) [8]

Всем сенкс. Буду разбираться

---

← →
testthewest   (2003-06-11 13:49) [9]

Если разберёшься сообщи здесь. Удачи!

---

← →
Babenko Alexey   (2003-06-12 11:55) [10]

Разобрался. Уже и на Kol перегнал, кому надо кидайте на мыло.
А разобрался я просто. Сходил на torry.net, набрал в поиске drag and drop и скачал те копмоненты, к которым исходники прикладываются. Благодаря описанным выше замечаниям выкинул всё лишнее и работает

---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2003.08.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.005 c