Вызов контекстного меню в координатах курсора мыши
|
- В мой компьютер попал вирус.
- Ну и что же ты сделал?
- Прививку.
- Куда?
- Под мышку.
|
Предлагаю свою процедуру в раздел "Компоненты" - "PopupMenu" - "Вызов
контекстного меню в координатах курсора мыши"
procedure TForm1.Form1MouseDown(Sender: TObject; Button:
TMouseButton; Shift: TShiftState; X, Y: integer);
var
FCursor: TPoint;
begin
if Button = mbRight then
begin
GetCursorPos(FCursor);
PopupMenu1.Popup(FCursor.X, FCursor.Y);
end;
end;
|
Процедура, возможно, не особо оригинальна, но все же отличается от двух, ранее
представленных в Ваших советах и довольно проста.
|
