Скачать: CL | DM;

Проблемы с нодом в 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 даже синтаксис не проверяет. Беда какая-то.

---

← →
GuAV ©   (2004-06-14 17:42) [9]

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

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

---

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

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

---

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

Скачать: CL | DM;



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