Как перетащить папку(ярлык) на форму

[Rin]

Здравствуйте, форумчане. Хочу перетащить папку на форму, чтобы потом открывать эту папку или ярлык из формы. Как это сделать? Спасибо заранее.

[bulldog5293]

Держи, компаненты с примероми под твою задачу

[Кольша]

delphisources.ru
forum.sources.ru
webdelphi.ru
Думаю хватит..

[Rin]

Благодарю, Bulldog и Кольша.

[Rin]

Доброго времени суток.
Делаю выдвижную панель с ярлыками, которая не мешается на экране, если на нее не навели мышь. Есть форма с событиями MouseMove и MouseLeave. Так же декларировал динамический массив кнопок. Нужно, чтобы при наведении и покидании мышки кнопки вели себя так же, как и форма. Присваиваю кнопкам события формы, но результата нет. Вроде, делаю так же как и в rsdn.

.....
 TForm1 = class(TForm)
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure FormMouseLeave(Sender: TObject);
end;
var
  MasOfBut:array of TBitBtn;
......
procedure My_procedure;
begin
......
 With TBitBtn.Create(self) do begin
          parent:=Form1;
{настраиваем прочие свойства}
          OnMouseMove:=FormMouseMove;
          OnMouseLeave:=FormMouseLeave;
 end;
 MasOfBut[i-1]:=FindComponent('BitBtn'+IntToStr(i)) as TBitBtn;
 MasOfBut[i-1].Visible:=true;
end;

procedure TForm1.FormMouseLeave(Sender: TObject);
begin
  height:=2;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var m:Tmouse;
begin
  if m.CursorPos.Y<50 then
  height:=50;
end;

UPD:
Вопрос снят с рассмотрения.