Class TForm1 (unit drop1)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);

Enables WM_DROPFILES message to be sent to ListBox1

procedure FormCreate(Sender: TObject);

we dont need any additional processing

procedure Subclasser1PreProcessMsg(Sender: TObject; var msg: TMessage; var bContinue: Boolean);


Properties

Events

Variables

Button1 : TButton;


ListBox1 : TListBox;


Panel1 : TPanel;


Subclasser1 : TSubclasser;



Constructors


Functions


procedure Button1Click(Sender: TObject);

Enables WM_DROPFILES message to be sent to ListBox1


procedure FormCreate(Sender: TObject);

we dont need any additional processing


procedure Subclasser1PreProcessMsg(Sender: TObject; var msg: TMessage; var bContinue: Boolean);


Properties


Events


Variables


Button1 : TButton;


ListBox1 : TListBox;


Panel1 : TPanel;


Subclasser1 : TSubclasser;