Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

TPopupMenu+Sender

Здарова, программеры!

Компоненты:
ListView: TListView, TreeView: TTreeView, ContextMenuView: TPopupMenu.
Свойство PopupMenu в ListView и TreeView установлены в ContextMenuView
Что нужно сделать для того чтобы узнать где нажали правую кнопку мыши.
Есть идея насчет определения позиции мыши, но это так через ж...
Может кто знает как это реализовать?
PS: Sender - не работает.

Кусок кода

procedure TNavigatorForm.ContextMenuViewPopup(Sender: TObject);
begin
if Sender=ListView then
begin
...
end
else if Sender=TreeView then
begin
...
end
else exit; //-->Всегда здесь
end;

PPS: Переплевывание PowerDesk'а идет полным ходом ;o)

Ответить   Томилов Александр Thu, 8 Jan 2004 19:57:59 +0500 (#49487)

 

Ответы:

Hello Томилов,

8 января 2004 г., 16:57:59, you wrote:

Добрый вечер Томилов Александр.

Ты не правильно делаешь проверку условия !!!
Надо писать:
if Sender is TListView then ......

тогда будет все работать.
Я с похожей фишкой уже сталкивался.
Удачи.

С Ув. Feniks mailto: feni***@b*****.ua
ICQ: 107536881

Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Feniks Thu, 8 Jan 2004 17:34:06 +0200 (#49520)

 

Здарова, Feniks!

8 января 2004 г., четверг, 20:34:06, ты намылил:

Не работает.
Как говориться, фига-с два.
У меня есть полностью рабочие примеры где сравнивается именно
if Sender=ListView then ...
А если у меня десять TListView как с помощью
if Sender is TListView ... узнать какой из десяти? Не катит.
PS: if Sender=ContextMenuView then showmessage('');
Мессага вылазит :-(( Sender как-то по тупому организован.
PPS: Только что протестировал
if ActiveControl=ListView then showmessage('');
мессага вылазит :-))) Возник вопрос: всегда ли в MenuPopup
ActiveControl будет тем по которому топнули мышью?

Ответить   Томилов Александр Thu, 8 Jan 2004 21:46:44 +0500 (#49633)

 

событие OnPopup

procedure T_fMain.PM1Popup(Sender: TObject);
begin
if PM1.PopupComponent=TreeView1 then showmessage('TreeView1')
else if PM1.PopupComponent=ListView1 then showmessage('ListView1')
else if PM1.PopupComponent=StringGrid1 then
showmessage('StringGrid1')
end;

On Thu, 8 Jan 2004 17:34:06 +0200
Feniks <feni***@b*****.ua> wrote:

Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Fri, 09 Jan 2004 08:04:55 +0300 (#50015)

 

Здарова, hohmasoft!

9 января 2004 г., пятница, 10:04:55, ты намылил:

Гуд, работает.

Ответить   Томилов Александр Fri, 9 Jan 2004 20:54:40 +0500 (#50580)