Текущий архив: 2007.02.25;
Скачать: CL | DM;

Вниз

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

← →
Alex_ey   (2007-02-05 15:02) [0]

Добрый день.
Такой вопрос - есть контекстное меню, привязанное к тривью....Как сделать чтоб оно работало только у родительской ноды, а на дочерной - нет..

---

← →
Agent13 ©   (2007-02-05 18:33) [1]

Не привязывать меню к TreeView, а привязывать к нодам, для которых оно требуется?

---

← →
Neket   (2007-02-06 10:38) [2]

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
Form1.TreeView1.SetFocus;
If Form1.TreeView1.Selected.Level=0 then
begin
Делаеш что нада

end else exit;

---

← →
RASkov   (2007-02-06 11:09) [3]

> [0] Alex_ey   (05.02.07 15:02)

Еще вариант:
procedure TForm1.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
var N: TTreeNode;
begin
 N := TreeView1.GetNodeAt ( MousePos.X, MousePos.Y );
 if N = nil then begin
   TreeView1.PopupMenu := nil; Exit;
 end else TreeView1.PopupMenu:=PopupMenu;
 if N.Level>0 then ShowMessage("Child") else ShowMessage("Level 0");
end;

---

Страницы: 1 вся ветка

Текущий архив: 2007.02.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.03 c