| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа с Treeview [D5, Win95/98]
nnn_nsk © (2002-08-22 18:34:00)Как организовать переходы по улам в treeview как с помощью левой так и правой кнопку мыши.
nnn_nsk (2002-08-22 19:17:00) [1]Первый прошел.Спасибо
andy_prokofiev (2002-08-22 19:05:00) [2]procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button = mbRight then
begin
if htOnButton in TreeView1.GetHitTestInfoAt(X, Y) then
TreeView1.GetNodeAt(X, Y).Expanded := not TreeView1.GetNodeAt(X, Y).Expanded;
TreeView1.GetNodeAt(X, Y).Selected := true;
end;
end;
andy_prokofiev (2002-08-22 19:00:00) [3]procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button = mbRight then
TreeView1.GetNodeAt(X, Y).Selected := true;
end;
nnn_nsk (2002-08-22 18:54:00) [4]Не проходит.При отпускании правой кнопки курсор возвращается на прежнее место
andy_prokofiev (2002-08-22 18:36:00) [5]TreeView1.RightClickSelect := true;
| |
