Компонент - нисподающее окно.

[Aleksey1989]

Добрый день. Помогите найти компонент, который состоит из ссылки, при нажатии на которую открывается панель. Например, в Windows 7 в разделе "Компьютер" можно свернуть диски, развернуть, нажав на небольшой треугольник.

[{Shadowevil}]

Сделай через, допустим, обычную метку (TLabel), вот те примерчик:

Для примера тебе надо кинуть 1 TLabel на форму и определить для нее методы onClick, onMouseEnter и onMouseLeave, а для самой формы метод onCreate

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Label1MouseEnter(Sender: TObject);
    procedure Label1MouseLeave(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    lblclick: boolean;
    a,b,c: TLabel;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  lblclick:=false;
end;

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
  Label1.Font.Style:=Label1.Font.Style + [fsUnderline];
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  Label1.Font.Style:=Label1.Font.Style - [fsUnderline];
end;


procedure TForm1.Label1Click(Sender: TObject);
begin
  if lblclick=false then
   begin
    a:=TLabel.Create(self);
    a.Caption:='Метка 1';
    a.Parent:=self;
    a.Left:=Label1.Left+10;
    a.Top:=Label1.Top+Label1.Height+5;

    b:=TLabel.Create(self);      //Здесь элементы, в моем случае TLabel
    b.Caption:='Метка 2';        //создаются и разрушаются динамически.
    b.Parent:=self;              //Примерно также можно сделать просто метод Hide
    b.Left:=Label1.Left+10;      //Для уже созданных элементов формы, просто играя
    b.Top:=a.Top+a.Height+5;     //с их координатами

    c:=TLabel.Create(self);
    c.Caption:='Метка 3';
    c.Parent:=self;
    c.Left:=Label1.Left+10;
    c.Top:=b.Top+b.Height+5;

    lblclick:=true;
   end
  else
   begin
    a.Destroy;
    b.Destroy;
    c.Destroy;
    lblclick:=false;
   end;
end;

end.