Не работает перетаскивание файлов на форму drag and drop. Помогите - внутри два идентичных примера - в одном все работает в другом - нет.

[Владимир1111]

Добрый день.

Есть исходный проект "TargetDemo" в котором отлично работает перетаскивание файлов на форму, а есть созданный мной полностью идентичный проект "drop555", в котором то же перетаскивание не дает результатов - listview не регистрирует названия перетаскиваемого файла. Хотя никаких отличий между проектами нет.

Может кто-нибудь помочь разобраться в причине этого? два проекта прилагаются


Вот весь код:

"

unit Main1;

interface

uses
 DragDrop,
  DropTarget,
  DragDropFile,
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, ExtCtrls;

type
  TMain = class(TForm)
    ListView1: TListView;
    DropFileTarget1: TDropFileTarget;
    Panel1: TPanel;

    procedure DropFileTarget1Drop(Sender: TObject; ShiftState: TShiftState;
      APoint: TPoint; var Effect: Integer);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Main: TMain;

implementation
   
{$R *.dfm}



procedure TMain.DropFileTarget1Drop(Sender: TObject; ShiftState: TShiftState;
  APoint: TPoint; var Effect: Integer);
var
  i: integer;
  Item: TListItem;
begin
  (*
  ** The OnDrop event handler is called when the user drag and drop files
  ** onto your application.
  *)

  Listview1.Items.Clear;

  // Display mapped names if present.
  // Mapped names are usually only present when dragging from the recycle bin
  // (try it).
  if (DropFileTarget1.MappedNames.Count > 0) then
    Listview1.Columns[1].Width := 100
  else
    Listview1.Columns[1].Width := 0;

  // Copy the file names from the DropTarget component into the list view.
  for i := 0 to DropFileTarget1.Files.Count-1 do
  begin
    Item := Listview1.Items.Add;
    Item.Caption := DropFileTarget1.Files[i];
       ShowMessage('файл - '+ DropFileTarget1.MappedNames[i]);
    // Display mapped names if present.
    if (DropFileTarget1.MappedNames.Count > i) then
      Item.SubItems.Add(DropFileTarget1.MappedNames[i]);

  end;

  // For this demo we reject the drop if a move operation was performed. This is
  // done so the drop source doesn't think we actually did something usefull
  // with the data.
  // This is important when moving data or when dropping from the recycle bin;
  // If we do not reject a move, the source will assume that it is safe to
  // delete the source data. See also "Optimized move".
  if (Effect = DROPEFFECT_MOVE) then
    Effect := DROPEFFECT_NONE;
end;



end.

"

[NetSpace]

где-то на форме у одного из компонентов по-любому забыли свойство приписать, чтоб реагировал. на Delphi, в левом маленьком окошке, где выбор компонента, есть вкладка - свойства. вот там и надо поглядеть, нет?

[Владимир1111]

Добрый день!

Я как раз специально проверил все свойства - полностью совпадают. можете в проекте проверить, я их выложил. Если бы причина была в таком простом я бы сюда на форум не писал. Но дело в том, что настройки свойств полностью идентичны, только в одном проекте все работает, а в другом нет. В чем причина понять не могу.