Создание выезжающего списка...как?

[DIgorevich]

Вот на изучение:

Новая папка.rar

И в догонку вопрос: вы хотите научиться программировать или вы хотите, чтобы на любое ваше желание писали код остальные?

[MyLastHit]

Я пишу коды самостоятельно. Если сталкиваюсь с проблеммой, сижу и изучаю ее. Если не понимаю самой сути, спрашиваю здесь.
Коды мне писать как таковые не нужно, просто некоторые наработки. К примеру я не знал как убрать каретку из РичЭдит, мне сказали каким кодом это делается, ну и тд. Это все нестандартные функции с которыми я знакомлю в процессе общения с вами)
Я, всё, что мне говорят мотаю на ус, и потом использую там где оно необходимо.

[DIgorevich]

Сообщение от MyLastHit

Я пишу коды самостоятельно. Если сталкиваюсь с проблеммой, сижу и изучаю ее. Если не понимаю самой сути, спрашиваю здесь.

В этом топике я не увидел ни строчки вашего кода... а показать\спрятать панель можно было сначала попробовать самому, потом показать нам код и сказать, что мол в этом месте проблема... А для учебы могу посоветовать обратиться в раздел "Литература".

[MyLastHit]

пробовал... Сделал 3 Панели. Сделал так чтоб первая закрывала вторую. Второй висибл в фолс поставил. Вот что получилось...:

procedure TForm1.Panel1Click(Sender: TObject);
begin
Panel2.Top := Panel2.Top +50;
Panel1.Visible := false;
Panel3.Visible := true;
end;



procedure TForm1.Panel3Click(Sender: TObject);
begin
Panel3.Visible := false;
Panel1.Visible := true;
Panel2.Top := Panel2.Top -50;
end;

генеально да? если бы прислал засмеяли бы...

[DIgorevich]

Сообщение от MyLastHit

...
генеально да? если бы прислал засмеяли бы...

Почему засмеяли бы? ты думаешь тут все сразу родились великими программистами? Никто не станет смеяться на желанием учиться... А ошибки наоборот свои надо знать. Здесь тебе помогут их осознать.

[ArtInt]

Как успехи?

В целом здесь особо ничего сложного нет, просто надо знать принцип работы таймера.
У таймера есть событие OnTimer, которое срабатывает через определенный интервал Interval, по умолчанию 1000 милисекунд = 1 секунда.
И Enabled = запущен или не запущен таймер.

Значит и прописываем нужный нам код в данном событие таймера, который будет выполняться через заданный нами интервал.

Для примера, ставим интервал = 100 : Enabled=false.
Panel2.Visible:=false; Panel2.Height:=10;

var
  Form1: TForm1;
  flag: boolean;
    // специальный флаг на случай определения видимости панели => уменьшать или убавлять значения
implementation

{$R *.dfm}

procedure TForm1.Panel1Click(Sender: TObject);
begin
  case Panel2.Visible of //
    false:
      begin
        Panel2.Visible := true;
        flag := false;
        Timer1.Enabled := true;
      end;
    true:
      begin
        flag := true;
        Timer1.Enabled := true;
      end;
  end; // case

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

  case flag of //
    false:
      begin
        if (Panel2.Height < 300) then
        begin
          Panel2.Height := Panel2.Height + 5;
          //    showmessage('flag=false');
        end
        else
        begin
          Timer1.Enabled := false;
        end;

      end;
    true:
      begin
        if Panel2.Height > 10 then
        begin
          Panel2.Height := Panel2.Height - 5;
        end
        else
        begin

          Panel2.Visible := false;
          Timer1.Enabled := false;

        end;

      end;
  end; // case

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  flag := false;
    // Panel 2 невидима поначалу, инициализируем на всякий случай в false
end;

В вышеуказанном коде по таймеру каждые 100 милисекунд будет увеличиваться высота на 5, если flag=false, до тех пор пока не достигнет нужного нам значения (в данном случае 300). И будет уменьшаться на 5, при flag=true до тех пор пока не достигнет наименьшего значения панели (10) и потом мы скрываем панель и останавливаем таймер.

[MyLastHit]

ArtInt огромное тебе спасибо!)