unit1.pas

Delphi应用技巧2

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure TraiteMessage(var Msg: TMsg; var Handled: Boolean);
    procedure DessineIcone(NomDuFichier:string);
  private
    { D閏larations priv閑s }

  public
    { D閏larations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
 DragAcceptFiles(Panel1.handle,true);// indique la fen阾re o