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

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

Наш партнер Genesis Hackspace
  1. Ramiros

    Ramiros Гость

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

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

    Регистрация:
    29 янв 2006
    Сообщения:
    2.435
    Симпатии:
    31
    Выдрал из какой-то своей программы. Такое легче вам в гуле найти.. Явно даже не пытались.
    Код (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
    Сообщения:
    665
    Симпатии:
    0
    это называется drug and drop. В гугле таких статей мягко сказано дафига.
     
  4. Ramiros

    Ramiros Гость

    Спасибо за помощь, все получилось :rolleyes:
     
Загрузка...

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