Выделять узел TTreeView правой кнопкой мыши

Материал из DRKB

Выделять узел TTreeView правой кнопкой мыши[править | править код]

procedure TForm1.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
var
  tmpNode: TTreeNode;
begin
  tmpNode := (Sender as TTreeView).GetNodeAt(MousePos.X, MousePos.Y);
  if tmpNode <> nil then
    TTreeView(Sender).Selected := tmpNode;
end;


Source: Взято с сайта: http://www.swissdelphicenter.ch
ID: 01112