Форум: "Начинающим";
Текущий архив: 2006.10.22;
Скачать: [xml.tar.bz2];
ВнизКак определить, какой компонент открыл доч. форму? Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.10.22;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.048 c