Нажатие правой кнопкой по ветке treeview

[Cerber24]

Наверное вопрос глупый, но сам разобраться не смог. Есть дерево с двумя ветками. Первый объект выбран, нажимаем правой кнопкой на второй объект и тут начинается проблема, почему выбранным объектом по прежнему остаётся первый объект? как это исправить?

[Alex Cones]

Можно по извращенски:
-Отловить нажатие мыши и перед посылкой сообщения отправить SetFocus

[Lemo]

Что вам мешает нажимать левой кнопкой мыши, так работает норм!

[Cerber24]

Мне нужно нажимать правой кнопкой и по выплывающему меню, что то делать с веткой... а так как ветка при нажатии правой кнопкой не выбирается получается косяк. приходится сначала выбирать левой кнопкой а потом правой кнопкой работать с объектом.

[mihali4]

Ничего сложного тут нет...
Вот вам обработчик:

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var tp: TPoint;
begin
TreeView1.Selected:=TreeView1.GetNodeAt(X, Y);
tp:=TreeView1.ClientToScreen(Point(X, Y));
if (Button=mbRight) then
MyPopupMenu.Popup(tp.X, tp.Y);
end;

З.Ы. Это одна из процедур, использованных при написании DFaq...

[Cerber24]

Спасибо большое, именно то что нужно..

[Johnson]

у меня малость по-другому реализовано... не знаю, как правильнее, но покажу, мож и пригодится:

procedure TVKmain.FrListFavMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if (FrListFav.Items.Count>0)and(FrListFav.ItemAtPos(Point(x,y),true)>=0) then begin
  FrListFav.Selected[FrListFav.ItemAtPos(Point(x,y),true)]:=true;
  CurSelected:=FrListFav.SelectedItem;
  if Button=mbRight then begin
    PopupMenu1.Popup(VKform.Left+FrPanel.Left+x+20,VKform.Top+FrPanel.Top+y+50) ;
  end;
  FrListFav.Repaint;
end;
end;

PS: mihali4, вспомнил сейчас... сначала сделал как у Вас, потом словил ошибку при райтклике не на итеме в листе... сделал более сложные проверки...

[Cerber24]

А как запретить выпрыгивание PopupMenu если нажать правой кнопкой на пустом месте?

[mihali4]

Попробуйте

if TreeView.Selected=nil then
//не выводить попап
else
//выводить

[Скандербег]

Позволю себе тоже внести лепту в решение вопроса одним из вариантов.
Здесь обрабатывается событие OnContextPopup, а не OnMouseNNN.

procedure TfrmMain.TView1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
var pt : TPoint;
    tn : TTreeNode;
begin
  if Sender <> TView1 then Exit;
  pt := TView1.ClientToScreen(MousePos);
  tn := TView1.GetNodeAt(MousePos.X, MousePos.Y-1);
  TView1.Selected := tn;
  //в следующей строке, если курсор на пустом месте, то отмечается корневая ветка
//  if tn = nil then TView1.Selected := TView1.Items.GetFirstNode;
  //если нужно запретить появление меню, то выпрыгиваем из процедуры:
  if tn = nil then Exit;

  ADVpmProject.Popup(pt.X, pt.Y)
  Handled := True;
end;