Динамическое создание компонентов. Создание кнопки на панели

Posted by Chas under Delphi

Нужно свернуть форму(panel) и создать кнопку(BitBtn) на панели (PanelTop) для разворачивания её. Хочу использовать procedure TForm1.MinimazingPanel(Sender: TObject); и для сворачиванию других панелей(даже когда сворачиваю несколько панель), должны появляться и другие кнопки (т.е. BitBtn : array[0..99] of TsBitBtn; ), для разворачивание использую клик по этой кнопки через переменную (pp), для того чтобы загонять туда панели нужно тоже сделать массив (pp : array[0..99] of TsPanel; )
Как мне реализовать это?

evg_m
каждая кнопка должна знать «свою» панель. Для это можно использовать ЕЁ свойство (Tag)

with BitBtn do

  begin

  parent := PanelTop;

  left := buttonExit.Width + 10;

  name := (TControl(Sender).Parent as TsPanel).name;

  caption := (TControl(Sender).Parent as TsPanel).Hint;

  OnMouseUp := ButtonDestroy;

  tag:=integer(Tcontrol(sender).Parent); //теперь она "знает свою панель"
  end;

и когда нажимаем достаем и используем

panel:=TsPanel( (sender as TbitBtn).tag );  //достали панель из нажатой кнопки (sender)

и дальше делаем что надо.

тема на форуме

Похожие статьи

• Создание динамической кнопки в stringrid
• Динамическое создание StringGird’ов и работа с ними
• Указать координаты для создания компонента
• Как программно изменить цвет любого компонента?
• Как сделать выделение кнопки как в delphi?
• Обработчик на динамически созданный компонент
• Определить активный компонент
• Как проверить создан компонент или нет?
• Создать и запустить timer динамически
• Узнать название колонки cxGrid в которой выделена ячейка по событию onCellDblClick?