| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Drag n Drop в элементы TEdit [D5, D6]

Grim Rider ©   (2002-02-01 11:08:00) 

Подскажите плз, как организовывается drag n"drop в элементы TEdit? Т.е. пользователь хватает мышкой файл и тянет его в TEdit, а в нем появляется имя файла (путь к файлу и т.д.)

В продуктах мелкомягких это просто, в Delphi я что-то не пойму как....

Спасибо.

---

Grim Rider   (2002-02-09 12:19:00) [1]

Спасибо

---

Набережных С.   (2002-02-09 12:16:00) [2]


uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,
StdCtrls, ShellAPI;

type
TForm1 = class(TForm)
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
procedure AppMsg(var Msg:TMsg; var Handled: boolean);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

{ TForm7 }

procedure TForm1.AppMsg(var Msg: TMsg; var Handled: boolean);
var
s:string;
begin
if (Msg.message = WM_DROPFILES)and(Msg.hwnd = Edit1.Handle) then
begin
SetLength(s,MAX_PATH);
Handled:=true;
DragQueryFile(Msg.wParam,0,PChar(s),MAX_PATH);
Edit1.Text:=PChar(s);
DragFinish(Msg.wParam);
Handled:=true;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Edit1.Handle,true);
Application.OnMessage:=AppMsg;
end;

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

end.


---

Grim Rider   (2002-02-09 06:00:00) [3]

2 Набережных С.:
а чуть поподробнее не расскажете как это все использовать?

---

Набережных С.   (2002-02-01 21:40:00) [4]

DragAcceptFiles регистрирует окно как получателя WM_DROPFILES.
WM_DROPFILES оповещает, что что-то сброшено
DragQueryFile - выборка имен из полученного списка
DragFinish - оповещает систему, что операция закончена и можно освободить память.

---

DenK_vrtz   (2002-02-01 13:16:00) [5]

2 yaJohn. Я не понял проблемы. Извини!
Кинь пример на мыло, pl. Спасибо!!!

---

yaJohn   (2002-02-01 13:04:00) [6]

2 DenK_vrtz
Ne vse tak prosto.... Eto dlia taskania vnutri svoego prilojenia. A chelovek hochet poluchit" fail kotoriy user iz Explorera vkidivaet.
Luchsee (IMHO) chto videl -
TagDropFileTarget, TagDropTextTarget
eto iz Alex Ghost Copyright (c) 1999,2000 Alexey Popov

Esli nado - mogu namilit".

---

DenK_vrtz   (2002-02-01 11:36:00) [7]

1.Свойство DragMode в dmAutomatic
2.У компонента, в который перетаскиваются данные должено быть описано событие OnDragOvner, типа Accept:=Source is T...,
и событие OnGragDrop - возникает во время перетаскиваня при отпускании левой кнопки мыши над элементом готовым к приему, т.е.
в твоем случее Edit1.text:=...

Попробуй!!!

---

Наверх