Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Win Api
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.08.2010, 11:10   #1
wanes101
Форумчанин
 
Регистрация: 04.06.2010
Сообщений: 212
Радость приложение к которому могут добавляться файлы

Я не знаю как создать такое приложение, в которое можно добавлять файлы перенося их на область формы.
Даже не знаю что искать, посоветуйте литературу или, что поискать в google.
wanes101 вне форума Ответить с цитированием
Старый 23.08.2010, 11:13   #2
BOBAH13
Android Developer
Старожил Подтвердите свой е-майл
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Сообщений: 3,708
По умолчанию

Вас интересует технология Drag&Drop. Введите и сразу найдете материал с примерами. Если не сможете чего то понять, просим обратно сюда
BOBAH13 вне форума Ответить с цитированием
Старый 23.08.2010, 22:39   #3
grafgrial
Просто хороший
Форумчанин
 
Аватар для grafgrial
 
Регистрация: 26.03.2010
Сообщений: 562
По умолчанию

Да Drag&Drop, а вот и кодик:
сначала в uses
Код:
ShellAPI
до слова private добавь
Код:
protected
    procedure WMDROPFILES (var Msg: TMessage); message WM_DROPFILES;
в formcreate
Код:
DragAcceptFiles(Handle, true);
Код:
procedure TForm3.WMDROPFILES (var Msg: TMessage);
var
  i,
  amount,
  size: integer;
  Filename: PChar;
begin
  inherited;
  Amount := DragQueryFile(Msg.WParam, $FFFFFFFF, Filename, 255);
  for i := 0 to (Amount - 1) do
  begin
    size := DragQueryFile(Msg.WParam, i , nil, 0) + 1;
    Filename:= StrAlloc(size);
    DragQueryFile(Msg.WParam,i , Filename, size);
    ListBox1.items.add(StrPas(Filename));
    StrDispose(Filename);
  end;
  DragFinish(Msg.WParam);
end;
Помог, нажми весы слева
grafgrial вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача:в вижуал с++ Разработать приложение-сервер и приложение (смотри дальше сообщение) Мила777 Фриланс 2 21.10.2009 11:05
как узнать Pid процесса которому принадлежит окно Пепел Феникса Win Api 3 13.04.2009 13:37
Путь по которому запещенно консольное приложение lokiz Общие вопросы Delphi 2 15.01.2009 21:41
Как грамотно загружать языковые файлы в приложение? apromix Общие вопросы Delphi 11 09.05.2008 21:06
Функция CallWndProc. Получить путь к папке или файлу к которому преднозначено сообщение Irat Помощь студентам 1 16.02.2008 23:36