Оприделить через sender что показывает форму

[Kovalchuk.Dmytro]

Доброго времени суток, Господа!
Передо мною постала следующая задача, есть три формы
Форма 1 из объектом TButton при нажатии на кнопку показывает Форму3
Форма 2 из объектом TImage при нажатии на нее показывает также Форму3
Эти две формы запускаются одновримеено.
Нужно определить в событии Show формы3 какая из форм ее показала, или при нажатии на какой объект TButton или TImage была показана форма3.
Также прикладываю иходник проекта написанный на делфи7.

[min@y™]

в модуле с формой 3 напиши функцию её показа и передавай туда чего хошь.
я вообще так всегда делаю, ибо удобно и не захламляет основной код.
пример дать?

[Аватар]

Просто в OnShow ни как. Можно перед Show в Tag формы что-то записать, или сделать public-свойство и через него параметр передавать, или сделать public-метод с параметром и к нему обращаться. Если форма создается динамически - переопределить конструктор или сделать свой с нужными параметрами. Вариантов много. min@y™ тоже дело предлагает

[WinCoder]

Если бы в событие OnShow третьей формы передавался сэндер первой или второй формы, то работал бы такой код

ShowMessage((Sender as TForm).Name);

Но в событие передаётся сэндер третьей формы.

[lomastr_]

а что по вашему есть Sender ?

[Stilet]

я вообще так всегда делаю, ибо удобно и не захламляет основной код.

Поддерживаю. Я тоже похоже передаю обьект, который вызывал. В Форме делаю поле типа TWinControl и в него передаю Sender в обработчике-клике. А в форме уже проверяю к чему то поле указало.

[blackstrip]

Можно даже не TWinControl, а просто integer переменную в Unit3 записать.
Если вызываем Form3 из первой формы, то записывать единицу unit3.forma := 1 перед вызовом третьей формы,
а если из второй формы, то записывать двойку unit3.forma := 2 перед вызовом третьей формы.

А уже в третьей форме - смотреть чему равна forma и, соответственно, выполнять какие надо действия в зависимости от forma.

[northener]

Сообщение от Stilet

Поддерживаю. Я тоже похоже передаю обьект, который вызывал. В Форме делаю поле типа TWinControl и в него передаю Sender в обработчике-клике. А в форме уже проверяю к чему то поле указало.

Даже когда возможных сендеров всего два?
Уже почти, но ещё не очень Как два программиста хлеб пекли

[Аватар]

Даже когда возможных сендеров всего два?

По тому сендеру из вызывающей формы много чего можно вытащить без необходимости передачи кучи параметров

[Stilet]

Даже когда возможных сендеров всего два?

Да. Ибо во-первых удобно, а во-вторых - на перспективу. Могут еще штук 10 добавиться.