Работа с двумя формами.

[serega96]

Столкнулся с проблемой.
У меня 2 формы.
При нажатии на одну кнопку первой формы должна открываться вторая.
Далее на второй форме нужно выбрать способ заполнения массива (6 разных кнопок). При нажатии на любую вторая форма должна становиться невидимой, а в зависимости от нажатой кнопки массив должен заполняться определённым образом(в первой форме). Как передать в первую форму, какая из кнопок была нажата?

[Ghost of Night]

Используй отдельный модуль, и в нем передавай параметры, предварительно подключив его к обоим формам...

[_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;

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

[kta87]

заведите глобальную переменную типа

NumBut: Integer;

По нажатию на кнопку 1,2,3... i присваивайте этой переменной соответствующее значение, а затем в первой форме пишите:

if Unit2.NumBut = 1 then {действия при нажатии 1 кнопка}
if Unit2.NumBut = 2 then {действия при нажатии 2 кнопка}
// и так далее до i-ой кнопки

[Ghost of Night]

На кнопке в первой форме пиши
Form2.ShowModal();
//проверка какой-то переменной в котрой указаны значения
//например как у kta87

В результате, проверка будет происходить после закрытия формы...

[Ghost of Night]

либо заполняй массив во второй форме, а потом как глобальную переменную передавай в первую форму...

[DiemonStar]

Ну как-бы ShowModal у форм никто не отменял и они при этом прекрасно ModalResult прописанный у соответствующей кнопки возвращают. Покопайте здесь - найдёте немало интересного.