Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.031 c
15-1170316596
DemoN__
2007-02-01 10:56
2007.02.25
Как проверить звуковуху


15-1170328942
апмав
2007-02-01 14:22
2007.02.25
stdcall


15-1170343464
vain
2007-02-01 18:24
2007.02.25
Картиночки


15-1170415324
stud
2007-02-02 14:22
2007.02.25
виснет ibexpert при старте


15-1170440145
_uw_
2007-02-02 21:15
2007.02.25
О Картинках