Динамическое создание кнопок.

@Vladiator · Регистрация: 24.02.2009

Студворк — интернет-сервис помощи студентам

Можно сделать так, чтобы при нажатии на одну кнопку создавалась (не появлялась) кнопка?

@alexanderwdark · 21.03.2009, 15:08

Сообщение от Kidalvь

Можно сделать так, чтобы при нажатии на одну кнопку создавалась (не появлялась) кнопка?

А почему бы и нет? Создавай невидимую, при необходимости ставь родительский контрол и visible := true; Поскольку родителя нет, кнопка не будет видима, хотя visible по-умолчанию := истина.

Нажата кнопка 1:

Delphi
1
2
3
4
5
b:=TButton.Create(nil);
b.Top:=5;
b.Left:=5;
b.Width:=100;
b.visible:=false;

Нажата кнопка 2:

Delphi
1
2
b.Parent:=form3;
b.Visible:=true;

@Vladiator · 24.03.2009, 16:17 **[ТС]**

Спасибо!

@Vladiator · 29.04.2009, 18:31 **[ТС]**

А можно, когда создалась 2-я такая кнопка, установить событие для первой (или свойство)?

@NickA · 29.04.2009, 18:41

В таком случае нужно массив таких кнопок сделать, чтоб их не терять:

Delphi
1
2
var
  b: array of TButton;

при нажатии на первую:

Delphi
1
2
3
4
5
6
7
8
9
10
var last: integer;
begin
last:=Length(b); // получаем размер массива
SetLength(b, last+1); // увеличиваем длину массива на 1
b[last]:=TButton.Create(nil);
b[last].Top:=5;
b[last].Left:=5;
b[last].Width:=100;
b[last].visible:=false;
end;

При нажатии на вторую выбрать к какой кнопке обращаемся:

Delphi
1
2
3
4
5
6
7
8
9
10
var index, count: integer;
begin
{Присваиваем index нужное значение}
count:=Length(b);
if index>=count // Проверяем есть ли кнопка с таким индексом
  then exit;
b[index].Parent:=form3;
b[index].Visible:=true;
{...}
end;

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268

	Динамическое создание кнопок. 21.03.2009, 12:49. Показов 4562. Ответов 4 Метки нет (Все метки) Можно сделать так, чтобы при нажатии на одну кнопку создавалась (не появлялась) кнопка? 0

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268
	24.03.2009, 16:17 [ТС]
	Спасибо! 0

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268
	29.04.2009, 18:31 [ТС]
	А можно, когда создалась 2-я такая кнопка, установить событие для первой (или свойство)? 0