где найти нормальный TTreeView

[andrey4623]

У меня в программе используется TTreeView как компонент, в котором отображаются вопросы. Вся проблема в том, что когда я щелкаю по нему ПРАВОЙ кнопкой (свойство RiightClickSelected равно True) и в собственном контекстном меню выбираю, например, "Удалить вопрос", удаляется элемент не тот, который я выбрал правой кнопкой, а тот, который был выбран ДО этого ЛЕВОЙ. Как быть?

[SNUPY]

Ну сделай искусственное выделение того который тебе нужен.

[andrey4623]

в смысле

[mihali4]

Я обходил это так:

procedure Tfmain.TreeViewMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var tp: TPoint;
begin
TreeView.Selected:=TreeView.GetNodeAt(X, Y);
tp:=TreeView.ClientToScreen(Point(X, Y));
if (Button=mbRight) and adm then
(tppmenu as TPopupMenu).Popup(tp.X, tp.Y);
end;

[Stanislav]

Сообщение от mihali4

Я обходил это так:

procedure Tfmain.TreeViewMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var tp: TPoint;
begin
TreeView.Selected:=TreeView.GetNodeAt(X, Y);
tp:=TreeView.ClientToScreen(Point(X, Y));
if (Button=mbRight) and adm then
(tppmenu as TPopupMenu).Popup(tp.X, tp.Y);
end;

Простите за вопрос а что такое adm? и tppenu?

[mihali4]

tppmenu - мое попап-меню, привязанное к дереву...
Вызывается, если нажата правая кнопка мышки и установлен флажок adm администратора программы, имеющего право пользоваться этим попап-меню и вносить с помощью его пунктов изменения в данные.
Для ответа на поставленный вначале вопрос - первая строка, остальное просто не удалил.

[Stanislav]

Сообщение от mihali4

tppenu - мое попап-меню, привязанное к дереву...
Вызывается, если нажата правая кнопка мышки и установлен флажок adm администратора программы, имеющего право пользоваться этим попап-меню и вносить с помощью его пунктов изменения в данные.
Для ответа на поставленный вначале вопрос - первая строка, остальное просто не удалил.

Извиняюсь, я ошибся, не специально, я видел, что ошибся, просто у меня с браузером что-то не то если нажимаю, правка все зависает.

P.S tppenu