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

Выделять узел 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;
Взято с сайта: http://www.swissdelphicenter.ch

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...