Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как определить, какой компонент открыл доч. форму? [D7, XP]

dera © (2006-10-05 11:33:00)
На главной форме есть 3 батона. При нажатии на любом из них открывается дочерняя форма (Form2). Как опредилить из Form2, какая кнопка была нажата, чтоб делать соответствующие действия в зависимости от нажатой кнопки?

Loginov Dmitry (2006-10-06 07:53:00) [1]
TForm2 = class(TForm)
.....
public
FButton: TButton;
end;

.....

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

ASoft (2006-10-06 05:19:00) [2]
главная_форма.батон.tag

ЮЮ (2006-10-06 03:03:00) [3]
а в [7] разве не код? Того, что в [6] словами сказано

dera (2006-10-05 12:20:00) [4]
а код кто-нить может показать?

ЮЮ (2006-10-05 12:15:00) [5]
Form2 := TForm2.Create(nil);

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

Form2.Show;

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

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

Form2.Show;

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

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

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

clickmaker (2006-10-05 12:12:00) [7]

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

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

dera (2006-10-05 12:07:00) [8]
как передать, если она не создана еще?

clickmaker (2006-10-05 11:43:00) [9]

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

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

dera (2006-10-05 11:42:00) [10]
как сказать? Можна код?

Плохиш (2006-10-05 11:35:00) [11]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »