Текущий архив: 2002.09.02;
Скачать: CL | DM;
Вниз
Работа с Treeview Найти похожие ветки
← →
nnn_nsk (2002-08-22 18:34) [0]Как организовать переходы по улам в treeview как с помощью левой так и правой кнопку мыши.
← →
andy_prokofiev © (2002-08-22 18:36) [1]TreeView1.RightClickSelect := true;
← →
nnn_nsk (2002-08-22 18:54) [2]Не проходит.При отпускании правой кнопки курсор возвращается на прежнее место
← →
andy_prokofiev © (2002-08-22 19: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;
← →
andy_prokofiev © (2002-08-22 19:05) [4]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;
← →
nnn_nsk (2002-08-22 19:17) [5]Первый прошел.Спасибо
Страницы: 1 вся ветка
Текущий архив: 2002.09.02;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.011 c
