Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TreeView.

Porolonchick © (2002-09-20 16:07:00)
Доброго всем времени суток! Господа хорошие, подскажите как узнать индекс итема в TreeView на который кликнули, причём!, когда кликают правой кнопой мыша по итему, то он не становится селектед, посему Selected.AbsoluteIndex не канает или я чего не понимаю. Зарание благодарен. Поролон

kex86 (2002-09-22 03:22:00) [1]
А можно и без выделения:

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

begin
if form1.TreeView1.GetNodeAt(X,Y)=nil then exit; // чтоб не было промаха

if button=mbRight then
переменная:=form1.TreeView1.GetNodeAt(X,Y).AbsoluteIndex;
end;

но мне больше по душе предыдущий вариант

kex86 (2002-09-22 03:15:00) [2]
>Rea
У меня эта опция ничего не меняет
>Porolonchick (про правую кнопку)

procedureTForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

begin
ifform1.TreeView1.GetNodeAt(X,Y)= nil thenexit; // чтоб не было промаха

ifbutton=mbRight then
form1.TreeView1.GetNodeAt(X,Y).Selected:=true;
end;

REA (2002-09-20 16:43:00) [3]
Насчет правой кнопки - в опциях есть становиться Selected или нет.

Porolonchick (2002-09-20 16:17:00) [4]
thnx

Dimich1978 (2002-09-20 16:14:00) [5]
Юзай их
treeview1.selected.parent.index+1,[loCaseInsensitive]);
treeview1.selected.Text ,[loCaseInsensitive]);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »