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

Не пойму логику   Найти похожие ветки 

← →
Schema ©   (2002-07-04 12:09) [0]

всем привет.
Итак кидаю на форму mainmenu, panel. По клику на пункте меню создаю в runtime окно treeview (отмечаю пункт меню галкой). При повторном клике на этом же пункте меню treeview уничтожается (убираю галку).
Вот процедура (Browser1 - name этого пункта в меню) - первоначально Browser1.Checked:=False.

procedure TForm1.Browser1Click(Sender: TObject);
begin
if not Browser1.Checked then
begin
Treeview1.Free; Browser1.Checked:=False; exit;
end;
Treeview1:=TTreeview.Create(Self);
Treeview1.Parent:=Panel1;
Browser1.Checked:=True;
end;
вот так (с not) почему-то все работает, но по логике все должно работать как раз наоборот - без NOT т.к при проходе процедуры условие должно всегда срабатывать и treeview создаваться не должно.
Почему так?

---

← →
GenBr ©   (2002-07-04 13:40) [1]

Почему это должно всегда срабатывать, ты же явным образом указываешь:
Treeview1.Free; Browser1.Checked:=False; exit;

---

← →
Schema ©   (2002-07-04 14:30) [2]

может я путанно написал - попробую еще раз:
первоначально - при запуске программы Browser1.Checked:=False.
потом запускается процедура - (см выше) - в таком виде, в каком она написана Treeview создаваться не должен (потому что по логике из процедуры мы должны всегда вываливаться по exit), а он создается - почему?

---

← →
Skier ©   (2002-07-04 14:59) [3]

>Schema
Можно так :

procedure TForm1.Browser1Click(Sender: TObject);
begin
if Browser1.Checked then
begin
Treeview1.Free;
Browser1.OnClick:= nil; //чтобы не вызывать Browser1Click
Browser1.Checked:=False;
Browser1.OnClick := Browser1Click;
Exit;
end;
Treeview1:=TTreeview.Create(Self);
Treeview1.Parent:=Panel1;
Browser1.OnClick := nil; //чтобы не вызывать Browser1Click
Browser1.Checked:=True;
Browser1.OnClick := Browser1Click;
end;


---

← →
ggrisha ©   (2002-07-04 15:17) [4]

Попробовал твой пример. Без not все работает. Текст скопировал твой. D6, win2k. Так что ошибка не в этом куске текста.

---

← →
Schema ©   (2002-07-04 15:40) [5]

вот черт
у меня на пункте меню browser стояло autocheck:=true;
поэтому то все и работало наоборот , не так как нужно.
pardon me и спасибо.

---

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

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



Память: 0.46 MB
Время: 0.016 c