Сайт Дмитрия Смирнова

Посмотреть: все, по категориям: Yii php mac os x css safari Delphi jQuery mongodb Числа разное apache или  
#48 от 11:23:55 22.08.2013
Как быстро выделить все дочерние элементы данного элемента в TTreeView, Delphi.

procedure Select(const aNode: TTreeNode);
begin
if not aNode.HasChildren then
Exit;
TreeView.Select(aNode.getFirstChild, [ssCtrl, ssShift]);
TreeView.Select(aNode.GetLastChild, [ssCtrl, ssShift]);
Select(aNode.GetLastChild);
end;
© Александр (http://vinatorul.blogspot.com/)