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

Delphi , Компоненты и Классы , TTreeView

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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;

Статья Выделять узел TTreeView правой кнопкой мыши раздела Компоненты и Классы TTreeView может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: TTreeView ::