1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

перетаскивание на форму

Тема в разделе "Delphi - программирование", создана пользователем Ramiros, 30 май 2010.

  1. Ramiros

    Ramiros Гость

    Репутация:
    0
    Видел во многих программах открытие файлов сделано не только через стандартный диалог, но и с помощью перетаскивания значка из эксплоера на форму окна, так вот объясните пожалуйста принцип такого взаимодействия и как такое делается, охота такую фишку в своем эмуле сделать :rolleyes:
     
  2. vital

    vital Больной Компом Детектед

    Репутация:
    0
    Регистрация:
    29 янв 2006
    Сообщения:
    2.432
    Симпатии:
    40
    Выдрал из какой-то своей программы. Такое легче вам в гуле найти.. Явно даже не пытались.
    Код:
     private
    procedure FileIsDropped(var Msg: TMessage); message WM_DropFiles;
    Код:
    procedure TForm1.FileIsDropped(var Msg: TMessage);
    var
    fName: array[0..256] of char;
    NumberOfFiles: integer;
    fCounter: integer;
    begin
    NumberOfFiles := DragQueryFile(Msg.WParam, $FFFFFFFF, fName, 255);
    for fCounter := 0 to NumberOfFiles - 1 do
    begin
    DragQueryFile(Msg.WParam, fCounter, fName, 255);
    //в Fname ваш файл. Тут что-то с ним делаете.
    DragFinish(Msg.WParam);
    end;
     
  3. Dock1100

    Dock1100 :-]

    Репутация:
    0
    Регистрация:
    9 ноя 2009
    Сообщения:
    665
    Симпатии:
    1
    это называется drug and drop. В гугле таких статей мягко сказано дафига.
     
  4. Ramiros

    Ramiros Гость

    Репутация:
    0
    Спасибо за помощь, все получилось :rolleyes:
     
Загрузка...
Похожие Темы - перетаскивание на форму
  1. doggyok1
    Ответов:
    1
    Просмотров:
    36
  2. Karatist
    Ответов:
    0
    Просмотров:
    21
  3. Karatist
    Ответов:
    4
    Просмотров:
    63
  4. D3ad ARbuZzz
    Ответов:
    0
    Просмотров:
    116
  5. никитан10
    Ответов:
    8
    Просмотров:
    97

Поделиться этой страницей