Как передать в первую форму из второй, какая из кнопок была нажата?

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;

Так симпатичнее будет.
Надеюсь смысл понятен….

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

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

• Задать свой обработчик событий у формы
• Расходование памяти формой
• Авторизация пользователя в программе
• Уничтожить Form1 при открытии Form2
• Как загрузить все картинки один раз при создании формы
• Перемещение формы не за заголовок
• Динамическое создание форм
• Получить значение переменной из одной формы в другой
• Создание формы приветствия
• Создать форму внутри ScrollBox