Контекстное меню

[mar4elo]

Как сделать чтоб при нажатии правой кнопки мыши на list view или List Box показывалось контекстное меню!!!
Проблема в том что если просто в свойстве Popup menu укзать компонент с меню, то в List View нажымаешь правой кнопкой на пустом месте меню появляется, а мне надо чтоб меню появлялось если какойто элемент выделен.
Надеюсь вопрос понятен... Помогите plz

[ViktorXP]

один из вариантов - в событии OnPopup проверяй выделено ли у тебя что-то, если нет то делай отмену (abort;)

[Jeni]

Можно обрабатывать событие OnContextPopup, а в нем проверять текущее положение курсора и устанавливать признак появления меню. Вот пример (предполагается, что к ListBox1 подключено контекстное меню):

procedure TForm1.ListBox1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
var
  I: Integer;
begin
  I := ListBox1.ItemAtPos(MousePos, True);
  Handled := I < 0;
end;

[mar4elo]

Чет не получилось

[goblinyara]

хмм... код Jeni точно правильный, ток что проверил...

[Jeni]

Сообщение от mar4elo

Чет не получилось

Выложи проект, можно будет проверить что там не так.

[Anatol_rus]

Вот как я использую положение курсора:

procedure TForm1.Menu_PlayListChange(Sender: TObject; Source: TMenuItem;
  Rebuild: Boolean);
var
  MousePos: TPoint;
  Item : TListItem;
begin
  GetCursorPos(MousePos);
  if (sPageControl1.ActivePage = sTabSheet1) then//Если у нас плейлист видео тоды сюда
    begin
      Item := sListView1.GetItemAt(MousePos.X - Form1.Left - (4 + sPanel3.Width + sSplitter1.Width + sTabSheet1.Left + sPageControl1.Left + sGroupBox1.Left), MousePos.Y - Form1.Top - 57 - ( 2 + sPanel5.Height + sTabSheet1.Top));// по координатам курсора опредиляем сделан ли клик по не пустому полю
      if Item <> nil then//Если поле есть то сюда
        begin//Делаем лоступными кнопки доп.меню установленными ниже))
          Form1.Del_File.Enabled := True;
          Form1.Delete_from_disk.Enabled := True;
          Form1.Open_file_papka.Enabled := True;
          Form1.Copy_file_in_papka.Enabled := True;
          Form1.Copy_File_in_buf.Enabled := True;
          Form1.Info_file.Enabled := True;
          exit;
        end
      else//Если поля нет,то сюда
        begin//Делаем не доступными следующие кнопки доп.меню указанные внизу
          Form1.Del_File.Enabled := False;
          Form1.Delete_from_disk.Enabled := False;
          Form1.Open_file_papka.Enabled := False;
          Form1.Copy_file_in_papka.Enabled := False;
          Form1.Copy_File_in_buf.Enabled := False;
          Form1.Info_file.Enabled := False;
          exit;
        end;
    end;
end;

Это для ListView опредиляется положение курсора мыши в списке(т.е в ListView)),и если указатель мыши находится над добавленной в ListView строкой ,то активируются у меня кнопки если на пустом месте то делаются недоступными.
Тебе в else надо прописать чтоб меню не открывалось,как ты уже понял этот код пишется в событии OnChange или OnPopup твоего доп.меню))),а как выключить еще поищи))

Засунь в else abort как ViktorXP сказал мож и получится))

[Deight]

Интересно зачем в коде #7 exit нужен?

[ViktorXP]

Сообщение от Deight

Интересно зачем в коде #7 exit нужен?

если подумать то там и переменная Form1 лишняя.

mar4elo ты прикрепи проэкт как ты это делаеш а мы посмотрим... посмеемся и исправим ошибку

[Kotofff]

Сообщение от ViktorXP

один из вариантов - в событии OnPopup проверяй выделено ли у тебя что-то, если нет то делай отмену (abort;)

Все правильно. И только так.