Форум: "Основная";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];
ВнизКак передать 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;
← →
Skier © (2004-08-17 18:24) [13]>mouse_web (17.08.04 17:48)
Ты можешь написать у формы метод Setup(...) и передать туда
хоть 100 параметров...
← →
alless (2004-08-17 18:26) [14]2 Skier © (17.08.04 18:24) [13]
Да не надо ему никаких Sender-ов, это понятно из
mouse_web (17.08.04 18:12) [8]
← →
Rem (2004-08-17 18:26) [15][11]
1. Перенести код из FormActivate в соответствующий конструктор.
2. Воспользоваться вспомогательный полем данных.
3. Изобрести велосипед.
4. Познать самое себя... :)
← →
Fay © (2004-08-17 20:09) [16]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. Сорри за возможные неточности и отклонение от темы
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.033 c