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

[Altera]

Привет всем!
Как мне сделать так, чтоб при перетаскивании, например *.txt файла из проводника на компонент memo, который в моей форме, в memo показывалось бы его содержимое... Надеюсь вопрос ясен!

[Stilet]

Когда то нашел пример в инете, так что идея (наверное) не моя.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
   procedure WMDropFiles (var Msg: TMessage); message wm_DropFiles;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
  procedure TForm1.WMDropFiles(var Msg: TMessage);
var
  FileName: array[0..256] of char;
begin
  DragQueryFile(THandle(Msg.WParam), 0, FileName, SizeOf(Filename));
  if WindowFromPoint(Mouse.CursorPos)=Panel1.Handle then
   caption:=FileName;
  DragFinish(THandle(Msg.WParam));
   Memo1.Lines.LoadFromFile(FileName);
end;

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

end.

[Altera]

Огромное спасибо Stilet... Реально помог!