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

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

  1. Ramiros

    Ramiros Гость

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

    vital Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.474
    Симпатии:
    27
    Выдрал из какой-то своей программы. Такое легче вам в гуле найти.. Явно даже не пытались.
    Код (Delphi):
     private
    procedure FileIsDropped(var Msg: TMessage); message WM_DropFiles;
    Код (Delphi):
    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 :-]

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

    Ramiros Гость

    Спасибо за помощь, все получилось :rolleyes:
     
Загрузка...
Похожие Темы - перетаскивание на форму
  1. Foxy2016
    Ответов:
    1
    Просмотров:
    37
  2. ~~DarkNode~~
    Ответов:
    0
    Просмотров:
    131
  3. Vander
    Ответов:
    1
    Просмотров:
    102
  4. Vander
    Ответов:
    0
    Просмотров:
    140
  5. cyber23
    Ответов:
    2
    Просмотров:
    56

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