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