Patrick1968 Posted October 25, 2021 Share Posted October 25, 2021 Добрый день. Подскажите, пожалуйста, как программно позиционироваться на TreeView. Если, к примеру, я его заполнил нодами, затем сделать MyNode := MyTree.Selected; Получим nil, а вот как сьимитировать клик мыши по дереву. SetFocus не работает Quote Link to comment Share on other sites More sharing options...
x11 Posted October 26, 2021 Share Posted October 26, 2021 procedure TfmdSelTree.edSearchChange(Sender: TObject); Var n: TUniTreeNode; begin n := FindNodeByText(TUniEdit(Sender).Text);// найти введенный пользователем текст if Assigned(n) then begin n.Selected := true; n.MakeVisible; end; end; function TfmdSelTree.FindNodeByText(const Text: string): TUniTreeNode; begin if text.IsEmpty then exit(nil); result := fmdSelTree.treeSel.Items.GetFirstNode; while Assigned(result) do begin if result.Text.ToLowerInvariant.Contains(text.ToLowerInvariant) then exit(result); result := result.GetNext; end;// while end; Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.