PopUp в Delphi 2007

Litvinenko_A · 11.03.2009, 10:51

Здравствуйте! Подскажите кто знает. Есть PopUp, у которого несколько элементов. Хочу что по нажатию на один из элементов скрывался определенный столбец в гриде (он тоже на форме). Для этого прописал у всех PopUpItem свойство Tag.
Теперь пишу обработчик OnClick:

grd.Columns.Items[TMenuItem(Sender).Tag].Visible := not grd.Columns.Items[TMenuItem(Sender).Tag].Visible;

Для всех элементов подставляю его, и сталкиваюсь с проблемой, что TMenuItem(Sender).Tag=0 всегда. Пробовал писать (Sender as TMenuItem).Tag, но таже ботва
Подскажите как из Sender вытянуть какие-либо свойства.

спартак85 · 11.03.2009, 18:57

у Item-а на Click пробовал?

Litvinenko_A · 12.03.2009, 14:28

Да. Именно так и сделал. Одному Item-у написал обработчик, а остальным его забил на OnClick

Vasuha · 12.03.2009, 15:51

А если ради эксперимента: ShowMessage((sender as TMenuItem).name) - что на экране высветится, может вы получаете tag не итема а чего нить другого?!

Litvinenko_A · 12.03.2009, 15:59

Не. (sender as TMenuItem).Classname пишет что это TMenuItem, а (sender as TMenuItem).name почему-то вообще ''

Vasuha · 12.03.2009, 16:07

А не срабатывает даже на том на котором описали или на тех которые ссылаются на описанный.

Litvinenko_A · 12.03.2009, 16:13

На всех. Я так понимаю просто как-то не так вытягиваю. Т.к. я, например убирал Tag=0 во всех Item-ах и у самого PopUp.

Vasuha · 12.03.2009, 18:14

По идее все правильно, я в Delphi 7 - сделал все работает, если интересует могу выслать(Sender он везде "sender").

Litvinenko_A · 13.03.2009, 15:00

Если можете вышлите. Я уже проблему обошел, но для себя интересно. Адрес в личку напишу.

11.03.2009, 10:51	#1
Litvinenko_A Неактивный пользователь Пол: Регистрация: 19.06.2008 Сообщений: 95 Репутация: 1	PopUp в Delphi 2007 Здравствуйте! Подскажите кто знает. Есть PopUp, у которого несколько элементов. Хочу что по нажатию на один из элементов скрывался определенный столбец в гриде (он тоже на форме). Для этого прописал у всех PopUpItem свойство Tag. Теперь пишу обработчик OnClick: grd.Columns.Items[TMenuItem(Sender).Tag].Visible := not grd.Columns.Items[TMenuItem(Sender).Tag].Visible; Для всех элементов подставляю его, и сталкиваюсь с проблемой, что TMenuItem(Sender).Tag=0 всегда. Пробовал писать (Sender as TMenuItem).Tag, но таже ботва Подскажите как из Sender вытянуть какие-либо свойства.

11.03.2009, 18:57	#2
спартак85 Неактивный пользователь Регистрация: 07.03.2009 Сообщений: 2 Репутация: 0	Re: PopUp в Delphi 2007 у Item-а на Click пробовал?

12.03.2009, 14:28	#3
Litvinenko_A Неактивный пользователь Пол: Регистрация: 19.06.2008 Сообщений: 95 Репутация: 1	Re: PopUp в Delphi 2007 Да. Именно так и сделал. Одному Item-у написал обработчик, а остальным его забил на OnClick

12.03.2009, 15:51	#4
Vasuha Постоялец Пол: Регистрация: 13.03.2008 Адрес: Минск Сообщений: 257 Репутация: 231	Re: PopUp в Delphi 2007 А если ради эксперимента: ShowMessage((sender as TMenuItem).name) - что на экране высветится, может вы получаете tag не итема а чего нить другого?! __________________

12.03.2009, 15:59	#5
Litvinenko_A Неактивный пользователь Пол: Регистрация: 19.06.2008 Сообщений: 95 Репутация: 1	Re: PopUp в Delphi 2007 Не. (sender as TMenuItem).Classname пишет что это TMenuItem, а (sender as TMenuItem).name почему-то вообще ''

12.03.2009, 16:07	#6
Vasuha Постоялец Пол: Регистрация: 13.03.2008 Адрес: Минск Сообщений: 257 Репутация: 231	Re: PopUp в Delphi 2007 А не срабатывает даже на том на котором описали или на тех которые ссылаются на описанный. __________________

12.03.2009, 16:13	#7
Litvinenko_A Неактивный пользователь Пол: Регистрация: 19.06.2008 Сообщений: 95 Репутация: 1	Re: PopUp в Delphi 2007 На всех. Я так понимаю просто как-то не так вытягиваю. Т.к. я, например убирал Tag=0 во всех Item-ах и у самого PopUp.

12.03.2009, 18:14	#8
Vasuha Постоялец Пол: Регистрация: 13.03.2008 Адрес: Минск Сообщений: 257 Репутация: 231	Re: PopUp в Delphi 2007 По идее все правильно, я в Delphi 7 - сделал все работает, если интересует могу выслать(Sender он везде "sender"). __________________ Последний раз редактировалось Vasuha; 12.03.2009 в 19:02..

13.03.2009, 15:00	#9
Litvinenko_A Неактивный пользователь Пол: Регистрация: 19.06.2008 Сообщений: 95 Репутация: 1	Re: PopUp в Delphi 2007 Если можете вышлите. Я уже проблему обошел, но для себя интересно. Адрес в личку напишу. Последний раз редактировалось Litvinenko_A; 13.03.2009 в 15:02..

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Delphi 2007	koba	Delphi	106	18.04.2013 13:00
Delphi 2007	Litvinenko_A	Delphi	2	23.09.2008 18:00
Delphi 2007+ MS SQL Server 2007	Litvinenko_A	Базы данных	1	19.06.2008 13:05
Delphi 2007	rar	Варезник	6	26.12.2007 17:38
Delphi 2007 for PHP	fxmike	Варезник	0	06.04.2007 12:30