![](/logo_grey.gif)
Последние записи
- Как в Python+Selenium webdriver открыть новую вкладку в уже открытом браузере?
- Lazarus, проверка существования строки таблице
- BASM и record, обращение к полям записи
- Web PHP Framework Symfony
- Относительный путь для вывода картинки на html странице
- Массовое открытие гиперссылок в браузере
- Скопировать значение строки из таблицы в textarea
- Рамки для страниц отчетов
- Вывод StdOut консоли в TMemo
- Чтение из файла большого размера (нехватка памяти)
![](http://programmersclub.ru/slurm3.jpg)
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
![](http://programmersclub.ru/katajpg.jpg)
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
22nd
Апр
Как передать в первую форму из второй, какая из кнопок была нажата?
Posted by Chas under Delphi
У меня 2 формы. При нажатии на одну кнопку первой формы должна открываться вторая.
Далее на второй форме нужно выбрать способ заполнения массива (6 разных кнопок). При нажатии на любую вторая форма должна становиться невидимой, а в зависимости от нажатой кнопки массив должен заполняться определённым образом(в первой форме). Как передать в первую форму, какая из кнопок была нажата?
_SERGEYX_
Пошагово:
1. В первой форме (в модуле) пишем процедуру
procedure TForm1.proc(Sender: TObject);
begin
Form1.Caption := 'Нажата кнопка ' + (Sender as TButton).Caption;
end;
2. Во второй форме (в модуле) всем кнопкам на OnClick цепляем одно и то же событие
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.proc(Sender);
end;
3. Запускам, открываем вторую форму, кликаем по кнопкам и проверяем результат.
PS. Конечно, желательно проверять не по заголовкам кнопок, а, например, прописать им разные свойства Tag. И в процедуре написать
case (Sender as TButton).Tag of
.......
end;
Так симпатичнее будет.
Надеюсь смысл понятен….
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
![пеллетные котлы](http://programmersclub.ru/respective.jpg)
пеллетные котлы
![пеллетный котел](http://programmersclub.ru/emtas.jpg)
Пеллетный котел Emtas
![форум программистов](http://programmersclub.ru/banf336х280.gif)
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)