Искать узел TTreeView через его свойство TextDelphi , Компоненты и Классы , TTreeViewИскать узел TTreeView через его свойство Text
Оформил: DeeCo // Search a TreeItem through its Text property // Return value is a TreeNodeObject // TreeItem uber die TextEigenschaft suchen // Der Ruckgabewert der Function ist ein TreeNodeObject. function Form1.TreeItemSearch(TV: TTreeView; SucheItem: string): TTreeNode; var i: Integer; iItem: string; begin if (TV = nil) or (SucheItem = '') then Exit; for i := 0 to TV.Items.Count - 1 do begin iItem := TV.Items[i].Text; if SucheItem = iItem then begin Result := TV.Items[i]; Exit; end else begin Result := nil; end; end; end; // Example: Search for Wasserfall in TreeView1 and select item // Beispiel: Sucht in TreeView1 das // Item mit der Beschriftung >Wasserfall< u. selectiert es; procedure TForm1.Button1Click(Sender: TObject); var Node: TTreeNode; begin //either - entweder so Node := TreeItemSuchen(TreeView1, 'Wasserfall'); TreeView1.Selected := Node; //or - oder so TreeView1.Selected := TreeItemSuchen(TreeView1, 'Wasserfall '); end; Статья Искать узел TTreeView через его свойство Text раздела Компоненты и Классы TTreeView может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |