Текущий архив: 2004.07.25;
Скачать: CL | DM;

Вниз

Не раскрывается TreeView   Найти похожие ветки 

← →
DelphiNew   (2004-07-09 17:17) [0]

Делаю поиск по Дереву нужно чтобы когда нашёлся нужный элемент раскрывался путь к нему. делаю так:

procedure TFormMain.Button1Click(Sender: TObject);
var
  Noddy, Noddy1: TTreeNode;
  Searching: Boolean;
  SearchTarget: string;
begin
 SearchTarget:=FormMain.Edit1.Text;
 Noddy := Tree.Items[0];
 Searching := true;
 while (Searching) and (Noddy <> nil) do
 begin
  if Noddy.text = SearchTarget then
   begin
    Searching := False;
    Tree.Selected := Noddy;
    Tree.SetFocus;
   end
   else
    begin
     Noddy := Noddy.GetNext
    end;
   end;
end;
элемент то он находит но ветка не раскрывается. Как можно исправить сие недорозумение

---

← →
wild_arg ©   (2004-07-09 17:23) [1]

for i:=0 to TreeView1.Items.Count-1 do
 if TreeView1.Items[i].Text = Edit1.Text then begin
   TreeView1.Items[i].Selected := True;
   Break;
 end;

---

← →
DelphiNew   (2004-07-09 17:32) [2]

Попробовал..... результат тот же т.е ветка не раскрывается

---

← →
wild_arg ©   (2004-07-09 17:37) [3]

Не могет быть. Только что накидал форму. Все открывается и выделяется. Сделай у TreeView1 свойство HideSelection = False;
Приведу код:
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ComCtrls, StdCtrls;

type
 TForm1 = class(TForm)
   Edit1: TEdit;
   Button1: TButton;
   TreeView1: TTreeView;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
 for i:=0 to TreeView1.Items.Count-1 do
  if TreeView1.Items[i].Text = Edit1.Text then begin
    TreeView1.Items[i].Selected := True;
    Break;
  end;
end;

end.

---

← →
wild_arg ©   (2004-07-09 17:39) [4]

Может он у тебя просто не находит нужную ветку? Может ты ищешь не существующую ветку? Ну там регистры букв не совпадают или еще что

---

← →
DelphiNew   (2004-07-09 17:49) [5]

Изменил свойство HideSelection в False всё равно не разворачивает. Причёт такая фигня если например вручную развернуть нужную ветку и потом свернуть то начинает работать, регистры совпадают на 100%

---

Страницы: 1 вся ветка

Текущий архив: 2004.07.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.042 c