Не пойму логику

← →
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;

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

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

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