Вызов контекстного меню в позиции курсора 3

Delphi , Компоненты и Классы , Меню

procedure TForm1.Memo1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  ClientPoint, ScreenPoint: TPoint;
begin
  if Memo1.SelLength > 0 then
  begin
    ClientPoint.X := X;
    ClientPoint.Y := Y;
    ScreenPoint := ClientToScreen(ClientPoint);
    PopupMenu1.Popup(ScreenPoint.X, ScreenPoint.Y);
  end;
end;

Here is the translation of the text into Russian:

Код на языке Object Pascal Delphi, который обрабатывает событие MouseUp для контрола Memo (TMemo). Цель этого процедуры - отобразить контекстное меню в ответ на правый клик по контролу memo.

Вот что код делает: 1. Он проверяет, есть ли выбранное текст в контроле memo с помощью Memo1.SelLength > 0. Если есть, то он продолжает отображение контекстного меню. 2. Он получает текущие координаты курсора (X, Y) внутри контрола memo с помощью параметров X и Y. 3. Он конвертирует эти клиентские координаты в экранные координаты с помощью метода ClientToScreen, который возвращает объект TPoint, содержащий экранные координаты точки, указанной клиентскими координатами. 4. Наконец, он вызывает метод Popup контекстного меню (PopupMenu1) и передает экранные координаты как параметры, эффективно отображая меню на позиции курсора.

Код написан на языке Object Pascal Delphi и использует тип TButton для кнопок и TShiftState для состояний сдвига. Процедура обработчика события прикреплена к событию MouseUp контрола TMemo, имя которого - Memo1.

Альтернативное решение: Если вы хотите отобразить контекстное меню на фиксированной позиции (например, в 3 пикселях от курсора), можно рассчитать позицию вручную вместо использования ClientToScreen. Вот обновленная версия:

procedure TForm1.Memo1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  ClientPoint: TPoint;
begin
  if Memo1.SelLength > 0 then
  begin
    ClientPoint.X := X - 3; //調整 позицию как нужно
    ClientPoint.Y := Y - 3;
    PopupMenu1.Popup(ClientPoint.X, ClientPoint.Y);
  end;
end;

В этой версии я вычитаю 3 из обоих X и Y, чтобы переместить контекстное меню на 3 пикселя от курсора. Вы можете изменить эти значения, как нужно, чтобы достичь вашей желаемой позиции.

В статье описывается способ вызова контекстного меню в позиции курсора 3 с помощью обработчика события MouseUp дляMemo-компонента в Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Меню ::