Народ нужна ваша помощь в осуществлении поиска в cxDBTreeList. Написал следующее поиск производится только до первого совпадения например в cxDBTreeList у меня есть такие названия Налог на зп , Налог НДС, Налог на ввоз и т.д. Своим поиском я попадаю в первую ноду Налог на зп и дальше поиск не осушествляется, как реализовать так, чтоб после нахождения первой записи по нажатию на Enter или другую клавишу находились и другие ноды и курсор перемещался на нее. Заранее благодарен за помощь
Код: procedure TFmStRash.SearchEditKeyPress(Sender: TObject; var Key: Char);
var
Node: TcxTreeListNode;
NodeLast: TcxTreeListNode;
begin
Node := ClassTree.FindNodeByText(SearchEdit.Text, NameColumn , nil, False, True);
if Node <> nil then
begin
Node.Expanded := True;
Node.Focused := True;
NodeLast:=Node ;
if Key = #13 then
begin
Node := ClassTree.FindNodeByText(SearchEdit.Text, NameColumn , NodeLast, False, True);
Node.Expanded := True;
Node.Focused := True;
end;
end;
end;
Код: procedure TFmStRash.SearchEditKeyPress(Sender: TObject; var Key: Char);
var
Node: TcxTreeListNode;
NodeLast: TcxTreeListNode;
begin
Node := ClassTree.FindNodeByText(SearchEdit.Text, NameColumn , nil, False, True);
if Node <> nil then
begin
Node.Expanded := True;
Node.Focused := True;
NodeLast:=Node ;
if Key = #13 then
begin
Node := ClassTree.FindNodeByText(SearchEdit.Text, NameColumn , NodeLast, False, True);
Node.Expanded := True;
Node.Focused := True;
end;
end;
end;