Обработка нажатия правой кнопкой мыши на визуальный компонент

← →
bobr12 (2003-07-09 11:57) [0]

Хочу, чтобы при нажатии правой кнопки мыши на визуальный компонент появлялось меню, из которого пользователь мог выбрать какой-нибудь пункт и в зависимости от того, что выбрал выполнялось какое-либо действие. Кто-нибудь может помочь?

← →
NickBat © (2003-07-09 12:00) [1]

Хм.
<компонент>.PopupMenu.

procedure TForm1.<визуальный компонент>MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
PopupMenu1.Popup(<визуальный компонент>.ClientOrigin.x + X, <визуальный компонент>.ClientOrigin.y + Y);
end;

Обработка нажатия правой кнопкой мыши на визуальный компонент Найти похожие ветки