画像のD&D (ID：18429)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

それなら、とりあえず 
http://forum.nifty.com/fdelphi/faq/00144.htm
を元に・・・
------------------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
  private
    procedure DropFiles(var Msg:TWMDROPFILES); message WM_DROPFILES;
  protected
  public
    procedure SetPicture(AFileName: string);
  end;

var
  Form1: TForm1;

implementation

uses ShellAPI;

{$R *.dfm}

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

procedure TForm1.DropFiles(var Msg: TWMDROPFILES);
var
  I, DropFileCount: Integer;
  FileName: array [0..255] of Char;
begin
  DropFileCount := DragQueryFile(Msg.Drop, Cardinal(-1), nil, 0);
  for I:=0 to DropFileCount-1 do
  begin
    DragQueryFile(Msg.Drop, I, FileName, SizeOf(FileName)-1);
    SetPicture(FileName);
  end;
  DragFinish(Msg.Drop);
end;

procedure TForm1.SetPicture(AFileName: string);
begin
  Image1.Picture.LoadFromFile(AFileName);
end;

end.
---------------------------------------------------------------
標準だとbmpのみです
また複数ファイルの対応はしてません

←解決時は質問者本人がここをチェックしてください。

戻る