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

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

Re: TPopupMenu+Sender

Original Message From: "Томилов Александр" <astero***@p*****.ru>
To: "comp.soft.prog.prog (2071434)" <janal***@n*****.ru>
Sent: Thursday, January 08, 2004 8:57 PM

Здравствуй Александр!
Вообще то Delphi автоматически определяет место щелчка для контекстного
меню, его только надо указать в соответствующем свойстве PopupMenu. Если
приспичило делать все самому, лучше перехватить событие от мыши onMouseUp:

procedure TListView.MouseUp(Sender: TObject; Button: TMouseButton; Shift:
TShiftState; X, Y: Integer);
begin
if Button = mbRight then ListView.poup(x,y);
// Или if [ssRight] in Shift then ListView.poup(x,y);
end;

TMouseButton=mbLeft, mbRight, mbMiddle;
TShiftState = set of (ssShift,
ssAlt,ssCtrl,ssLeft,ssRight,ssMidle,ssDouble);

Все дополнительные действия по выводу необходимо вставить в обработчик
onPoup

При таком варианте свойство AutoPoup должно быть false!

С уважением monah
http:\\janalex.narod.ru
Получить правила : 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, 9 Jan 2004 10:48:17 +0600 (#50357)