PopUp меню в ListView

[Altera]

Всем привет!
В общем дело обстоит так:
Есть tListview с item-ами. и двумя контекстными меню. При щелчке правой кнопкой нужно что-бы всплывало или одно меню, или другое, в зависимосте от того, выбраны ли item-ы или нет.
Реализовал так:
На событие tListView.onSelectItem я устанавливаю нужное меню. Проблема в том, что если я щёлкнул правой кнопкой по пустой области listView-шки и не закрывая меню щёлкнул по item-ке (правой кнопкой) то она не выделяется! ...и открывается не то меню которое нужно.
Замечу, что в WINDOWS EXPLORER-е такого бага нету.

++++++++++++++++++++++++++++++++++

Сделал через mouseDown, и то, срабатывает, когда отпускаю кнопку мыши! А если через mouseUp то вообще через 4 раза срабатывает. Что за идиотизма!

procedure someList.MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
menu: tPopupMenu;
cur: tPoint;
begin
   caption := intToStr(random(10000)); // это для того, что-бы знать, когда срабатывает 
  
   if not (button = mbRight) then exit;

   if someList.Selected <> nil then
      menu := someMenu1
   else
      menu := someMenu2;

   getCursorPos(cur);
   menu.Popup(cur.x, cur.y);
end;

Тоже не работает как надо!

++++++++++++++++++++++++++++++++++

Вот выкладываю в аттаче пример

[russian-stalker]

Вот так:

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
var
 p:tpoint;
begin
getcursorpos(p);
  if (item.Caption='1') and selected then
     popupmenu1.Popup(p.X,p.Y);
  if (item.Caption='2') and selected then
     popupmenu2.Popup(p.X,p.Y);
end;

или так:

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if listview1.Selected=nil then
listview1.PopupMenu:=nil
end;

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  if item.Caption='1' then
     listview1.PopupMenu:=popupmenu1;
  if item.Caption='2' then
     listview1.PopupMenu:=popupmenu2;
end;

[Altera]

Сообщение от russian-stalker

(тыры пыры)

Не помог не фига...

[Пепел Феникса]

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
 PopupMenu1.Items.Clear;
 PopupMenu1.Items.Add(TMenuItem.Create(PopupMenu1.Items));
 if ListView1.ItemIndex>=0 then PopupMenu1.Items.Items[0].Caption:='OnItem' else PopupMenu1.Items.Items[0].Caption:='NotOnItem';
end;

это пример...
то есть получается все элементы нам надо создать при создании формы...
то есть буду переменки:
OnItem,NOtOnItem:TMenuItem;

к ним программно(в онкрит) создать всю иерархию...(можно в принципе на попапах сделать)
и потом от нужного или ассигним элементы(PopupMenu1.Items.assign(On Item)) или добавляем в наше меню все подэлементы нужного(for i:=0 to OnItem.Count-1 do PopupMenu1.items.add(OnItem[i])

в общем я предложил свой вариант

[Altera]

Да. у меня то всё по Action-ам сделано, но всё равно, это как-то громостко...

[Пепел Феникса]

иного способа я ненашел пока

[Altera]

Сообщение от Пепел Феникса

иного способа я ненашел пока

Это не решает проблему. Даже если меню статическое и всего одно. Оно появляется не всегда если щёлкать только правой кнопкой мыши.
Пощёлкайте только правой кнопкой по списку (listView) и вы поймёте о чём я....

[Altera]

Проблема решилась тем, что вместо tActionPopUpBar я стал юзать tPopUpMenu...

[Пепел Феникса]

вместо tActionPopUpBar я стал юзать tPopUpMenu...

тогда ясно почему поразному было

[Пепел Феникса]

ListView.Items.BeginUpdate
// что-то делаем с ListView
ListView.Items.EndUpdate

и причем тут вообще эта тема?