VPF::Drag and Drop - Форум программистов

stn

Дата 17.1.2007, 21:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 27.12.2006

Репутация: нет
Всего: нет

Как мне с рабочего стола в TMemo1 загрузить txt?(Если можно с пояснением как это происходит) smile

Snowy

Дата 17.1.2007, 21:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Загрузить

Код


Memo1.Lines.LoadFromFile('C:\.....');

Что конкретно интересует?

Sunvas

Дата 17.1.2007, 22:43 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Ид DRKB:
Рассмотрим пример перетаскивания Drag & Drop в окно произвольного текстового файла,
который сразу же открывается в компоненте Memo1. Для начала в разделе Uses необходимо подключить модуль ShellAPI. В private области окна нужно вставить следующую строку:

Код


 procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;//получение сообщений о

переносе файла в окно приложения

Процедура обработки этого сообщения будет выглядеть следующим образом:

Код


procedure TForm1.WMDropFiles(var Msg: TWMDropFiles); 
var 
  CFileName: array[0..MAX_PATH] of Char; // переменная, хранящая имя файла 
begin 
 try  
 If DragQueryFile(Msg.Drop, 0, CFileName, MAX_PATH)> 0 then  
 // получение пути файла  
  begin  
   Form1.Caption:=CFileName; // имя файла в заголовок окна  
   Memo1.Lines.LoadFromFile(CFileName); // открываем файл  
   Msg.Result := 0;  
 end;  
 finally  
   DragFinish(Msg.Drop); // отпустить файл  
 end;  
 end;

Для того, чтобы форма знала,
что может принимать такие файлы, необходимо в процедуре создания окна
указать:

Код


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

Это сообщение отредактировал(а) Sunvas - 17.1.2007, 22:44

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Snowy

Дата 17.1.2007, 22:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

http://vingrad.ru/DELPHI-DLP-000303
http://vingrad.ru/DELPHI-DLP-000304

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »