VPF::Как прицепить к компоненту Tpopupmenu

Sunvas

Дата 3.4.2006, 07:40 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Нужно как-то прикрепить к tlistview меню правой кнопки мыши, но есть одно ограничение - нельзя использовать свойство popupmenu у Tlistview (ну типа там выставляешь и готово).
Ограничение обумовлено особенностью программы.

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Guedda

Дата 3.4.2006, 07:51 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

При движении мышки вычисляешь ее координаты. Если они находятся над TListView, то ловишь сообщение о нажатой правой кнопке мыши, и вызываешь:

Код


PopupMenu1.Popup(x,y);

Добавлено @ 07:56
Вот накатал по быстрому. Все работает, если я тебя правильно понял:

Код


procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  po : TPoint;
begin
  if Button = mbRight then begin
    GetCursorPos(po);
    PopupMenu1.Popup(po.X,po.Y);
  end;
end;

--------------------

Ll 2

Snowy

Дата 3.4.2006, 08:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код

PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);

Sunvas

Дата 4.4.2006, 07:24 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Спасибо Guedda и Snowy что выручили.

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »