Скачать: CL | DM;

Как определить, какой компонент открыл доч. форму?   Найти похожие ветки 

← →
dera   (2006-10-05 11:33) [0]

На главной форме есть 3 батона. При нажатии на любом из них открывается дочерняя форма (Form2). Как опредилить из Form2, какая кнопка была нажата, чтоб делать соответствующие действия в зависимости от нажатой кнопки?

---

← →
Плохиш ©   (2006-10-05 11:35) [1]

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

Надо сказать этой форме по какой кнопке она была создана.

---

← →
dera   (2006-10-05 11:42) [2]

как сказать? Можна код?

---

← →
clickmaker ©   (2006-10-05 11:43) [3]

> как сказать?

Передать как параметр в какой-либо метод формы или как свойство

---

← →
dera   (2006-10-05 12:07) [4]

как передать, если она не создана еще?

---

← →
clickmaker ©   (2006-10-05 12:12) [5]

> она не создана еще?

ты же спрашиваешь "Как опредилить из Form2". Выходит, она уже есть

---

← →
Плохиш ©   (2006-10-05 12:13) [6]

> dera   (05.10.06 12:07) [4]
> как передать, если она не создана еще?

1. Передать после создания
или
2. Переписать конструктор, добавив новый параметр.

---

← →
ЮЮ ©   (2006-10-05 12:15) [7]

Form2 := TForm2.Create(nil);

Form2.MyStyle := 1; где MyStyle  - public поле TForm2

Form2.Show;

---------------

Form2 := TForm2.MyCreate(nil, 1);
 свой конструктор, с доп. параметром.

Form2.Show;

---

← →
dera   (2006-10-05 12:20) [8]

а код кто-нить может показать?

---

← →
ЮЮ ©   (2006-10-06 03:03) [9]

а в [7] разве не код? Того, что в [6] словами сказано

---

← →
ASoft   (2006-10-06 05:19) [10]

главная_форма.батон.tag

---

← →
Loginov Dmitry ©   (2006-10-06 07:53) [11]

TForm2 = class(TForm)
.....
public
 FButton: TButton;
end;

.....

procedure TForm1.Button1Click(Sender: TObject);
begin
 TForm2.Create(Self).FButton := Sender;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.028 c