Datei auf Image ziehen und dann in Listbox einfügen

[MisterNiceGuy]

Hi ich hab da ein meiner Meinung nach etwas kompliziertes Problem.
Ich möchte eine Datei auf ein TImage ziehen. Der Dateiname der gedropten Datei
soll dann in einem Listview ausgegeben werden.

Wie mach ich das, ich hab schon im Forum unter drag an Drop gesucht abe rnichts gefunden :/

[sniper_w]

Delphi-Quellcode:

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    procedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMDropFiles(var Message: TWMDropFiles);
var
  Count: Integer;
  I: Integer;
  Buffer: array[0..MAX_PATH] of Char;
begin
  DragQueryFile(Message.Drop, 0, @Buffer, SizeOf(Buffer));
  Edit1.Text := Buffer;

  ListBox1.Clear;
  Count := DragQueryFile(Message.Drop, UINT(-1), nil, 0);

  for I := 0 to Count - 1 do
  begin
    DragQueryFile(Message.Drop, I, @Buffer, SizeOf(Buffer));
    ListBox1.Items.Add(Buffer);
  end;
end;

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

[MisterNiceGuy]

Hi vielen vielen Dank, nur ein Problem gibt es bei der Methode, wenn ich den Formstyle der Form auf der das Image liegt auf fsstayontop setze, dann kann man keine Dateien mehr darauf ziehen. Weißt du dafür eventuell auch noch ne Lösung? Wäre klasse :)

[SirThornberry]

wenn der FormStyle auf fsStayOnTop ist wird das Form Recreated (neues Handle angefordert). Du musst also sicherstellen das der FormStyle gesetzt wird bevor du DragAcceptFiles aufrufst. Eine Möglichkeit wäre das du es nicht per OI machst sondern auch im Create und da direkt vor der DragAcceptFiles-Anweisung

[MisterNiceGuy]

Oh Gott, danke, wusste nicht, dass es ein neues Handle bekommt!!

[Flocke]

Bisschen Werbung machen :mrgreen:
Oder du nimmst die kleine Kompo hier.

[MisterNiceGuy]

Na hätte ich das gewusst hätte ich natürlich deine Komponente benutzt :mrgreen: