Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

20th
Апр

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

Posted by maloy under Delphi, Архив

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…

тема на форуме от 2009 года