Проблемы с нодом в TreeView

← →
Артем (2004-06-14 16:23) [0]

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

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

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;

← →
GuAV © (2004-06-14 16:27) [1]

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

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

← →
Артем (2004-06-14 16:31) [2]

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

← →
GuAV © (2004-06-14 16:55) [3]

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

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

← →
GuAV © (2004-06-14 16:57) [4]

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

← →
Артем (2004-06-14 17:03) [5]

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

← →
GuAV © (2004-06-14 17:19) [6]

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

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

← →
Артем (2004-06-14 17:29) [7]

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

← →
Артем (2004-06-14 17:35) [8]

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

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

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

← →
Артем (2004-06-14 18:23) [10]

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

Проблемы с нодом в TreeView Найти похожие ветки