| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблемы с нодом в TreeView [D6, WinXP]

Артем ©   (2004-06-14 16:23:00) 

Уважаемые Мастера!

Подскажите, что неверно:

var Mynode:TTreeNode;
...
procedure Tlibraryform.FormCreate(Sender: TObject);
begin
Mynode:=nil;
end;

procedure Tlibraryform.TreeView1GetSelectedIndex(Sender: TObject;
 Node: TTreeNode);
begin
Mynode:=Node;
end;

procedure Tlibraryform.TreeView1Click(Sender: TObject);
begin
if Mynode.text='что-то' then showmessage('что-то');
end;

---

Артем   (2004-06-14 18:23:00) [1]

Огромное спасибо тебе, GuAV!На верный путь ты меня поставил. Все, исправил объявление - был указан каталог backup-а, а там ранее созданная форма. Вот блин, то же мне чудеса науки. Как так она прописалась...

---

GuAV   (2004-06-14 17:42:00) [2]

> У меня тут Delphi даже синтаксис не проверяет

покажи объявление Tlibraryform и её создание.

---

Артем   (2004-06-14 17:35:00) [3]

GuAV, может попробуешь у себя? А то я вообще ничего не понимаю. У меня тут Delphi даже синтаксис не проверяет. Беда какая-то.

---

Артем   (2004-06-14 17:29:00) [4]

Да это, в принципе, не важно. Дело в том, что не происходит вообще никаких действий. Вот и голову ломаю, в чем проблема-то.

---

GuAV   (2004-06-14 17:19:00) [5]

> Mynode.text='что-то'

А если ShowMessage(Mynode.text) может там другой текст?

---

Артем   (2004-06-14 17:03:00) [6]

От этого ничего не меняется.
Message не появляется.

---

GuAV   (2004-06-14 16:57:00) [7]

А вчем проявляется "не работает"?

---

GuAV   (2004-06-14 16:55:00) [8]

>
> if Assigned(Mynode) then
>  if Mynode.text='что-то' then showmessage('что-то')
> else
>  showmessage('ничего')

if Assigned(Mynode) then
  begin    
if Mynode.text='что-то' then showmessage('что-то')
  end
else
showmessage('ничего')
Думал такие ошибки уже не делаю :(

---

Артем   (2004-06-14 16:31:00) [9]

Нет, не работает, GuAV.

---

GuAV   (2004-06-14 16:27:00) [10]

> if Mynode.text='что-то' then showmessage('что-то');

if Assigned(Mynode) then
 if Mynode.text='что-то' then showmessage('что-то')
else
 showmessage('ничего')

---

Наверх