1

Есть ли в Delphi компонент или какая-нибудь функция, чтобы я мог перетащить файл.txt на форму, и все что внутри этого файла скопировалось в таблицу StringGrid?

3 ответа 3

2

Компонента не знаю, но именно для файлов, в принципе, всё не так сложно:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TMemo = class(StdCtrls.TMemo)
  protected
    procedure WM_DROPFILES(var Message: TWMDropFiles); message WM_DROPFILES;
  end;

  TForm1 = class(TForm)
    Memo: TMemo;
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

uses
  ShellAPI;

{$R *.dfm}

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

{ TMemo }

procedure TMemo.WM_DROPFILES(var Message: TWMDropFiles);
var
  NameSize: Cardinal;
  NewSize: Cardinal;
  FileName: PChar;
  Index: Cardinal;
  Count: Cardinal;
begin
  // чтобы не делать вложенных try/finally
  FileName := nil;
  // Получаем количество перетащенных файлов
  Count := DragQueryFile(Message.Drop, $FFFFFFFF, FileName, 0);
  try
    // выделяем память под имя файла
    NameSize := 256;
    GetMem(FileName, NameSize);
    // ... и список их имён
    for Index := 0 to Count - 1 do begin
      NewSize := DragQueryFile(Message.Drop, Index, nil, 0) + 1; // +1 для #0 в конце имени
      // проверка на то, что нам хватит места
      if NewSize > NameSize then begin
        NameSize := NewSize;
        ReallocMem(FileName, NameSize);
      end;
      // получаем имя файла, обработка ошибок - в качестве самостоятельной работы :)
      DragQueryFile(Message.Drop, Index, FileName, NameSize);
      // делаем с ним всё что нам нужно
      Lines.Add(FileName);
    end;
  finally
    DragFinish(Message.Drop);
    if FileName <> nil then
      FreeMem(FileName);
  end;
end;

end.

Как-то так. Пример взял отсюда и немного модифицировал, чтобы файлы принимала не сама форма, а TMemo на ней.

2
  • Я написал Form7.Memo2.Lines.LoadFromFile(FileName) . При наведении курсор меняется.. и все
    – Ник
    4 июн 2016 в 13:07
  • Надо весь код видеть, чтобы что-то понять.
    – Alekcvp
    4 июн 2016 в 14:00
0

В JEDI есть компонент JvDragDrop (невизуальный). Позволяет гибко настроить параметры "кидания" на разные области вашей формы.

http://wiki.delphi-jedi.org/wiki/JVCL_Help:TJvDragDrop

0

Компоненты:

  1. Drag and Drop Component Suite
  2. JVCL (JvDragDrop).
  3. Raize DropMaster

Программно:

  1. Delphi
  2. MSDN

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.