Как передать Sender новой форме?

← →
mouse_web (2004-08-17 17:48) [0]

У меня 2 формы. На одной из них 2 кнопки. При нажатии на кнопки открывается окно формы, как мне передать окну Sender этих кнопок.
Уже все методы перепробовал.
Помогите, пожалуйста.

← →
alless (2004-08-17 17:55) [1]

вот этот Sender? Form1.Button1.Handle ?

← →
VMcL © (2004-08-17 17:56) [2]

>>mouse_web (17.08.04 17:48)

>Уже все методы перепробовал.

Ну раз уже все перепробовал и не получается, значит никак.

← →
mouse_web (2004-08-17 17:58) [3]

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

procedure TForm2.FormActivate(Sender: TObject);

← →
mouse_web (2004-08-17 17:59) [4]

> VMcL ©
> Ну раз уже все перепробовал и не получается, значит никак.

Все какие знал :)

← →
alless (2004-08-17 18:06) [5]

я так понял что если нажимать на одну, делать чтото на другой, другие действия, да?

← →
Rem (2004-08-17 18:09) [6]

TForm3 = class(TForm) constructor Create(a_Owner: TComponent; a_Sender: TObject); end;

← →
VMcL © (2004-08-17 18:10) [7]

>>mouse_web (17.08.04 17:58) [3]

Button1.OnClick := Form2.Button1Click;

?

← →
mouse_web (2004-08-17 18:12) [8]

alless
Именно так.
На одну кнопку нажимаю, открывается форма и производятся некие действия. На другую нажимаю открывается таже форма, но выполняются другие действия.

← →
Rem (2004-08-17 18:13) [9]

Прошу прощения:

TForm3 = class(TForm) constructor Create(a_Owner: TComponent; a_Sender: TObject); reintroduce; end;

← →
Rem (2004-08-17 18:16) [10]

[8]

TForm3 = class(TForm)
constructor CreateByFirstMethod(a_Owner: TComponent);
constructor CreateBySecondMethod(a_Owner: TComponent);
end;

← →
mouse_web (2004-08-17 18:19) [11]

> Rem (17.08.04 18:16) [10]

А как мне это использовать?
У меня действия на выполение формы записаны в
procedure TForm2.FormActivate(Sender: TObject);

← →
alless (2004-08-17 18:20) [12]

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Tag:=0;
Form2.Show;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Tag:=1;
Form2.Show;
end;

procedure TForm2.FormActivate(Sender: TObject);
begin
if tag=0 then
Showmessage("0") else
Showmessage("1")

end;

>mouse_web (17.08.04 17:48)
Ты можешь написать у формы метод Setup(...) и передать туда
хоть 100 параметров...

← →
alless (2004-08-17 18:26) [14]

← →
Rem (2004-08-17 18:26) [15]

[11]

1. Перенести код из FormActivate в соответствующий конструктор.
2. Воспользоваться вспомогательный полем данных.
3. Изобрести велосипед.
4. Познать самое себя... :)

2 Rem (17.08.04 18:26) [15]
>> 4. Познать самое себя... :)
Фу, как это грубо!
8)

← →
Rem (2004-08-18 12:21) [17]

[16]

Если мне не изменяет память:

...
9:00 Завтрак
10:00 Прогулка
11:00 Подвиг
12:00 Познать самое себя
...
(С) Расписание дня барона Мюнхаузена

P.S. Сорри за возможные неточности и отклонение от темы

Как передать Sender новой форме? Найти похожие ветки