TreeView в delphi у меня косяк

[apocalypce]

приветствую Вас пользователи/посетители форума!

И так возникла у меня одна трабла: (( кидаю на форму компонент TreeView и скажем 2 Panel. накладываю 2 panel на 1 ранель. прописываю для TreeView в событие OnClick следующий код:

if TreeView1.Items[1].Selected then Panel1.Visible:=true;
if TreeView1.Items[1].Selected then Panel2.Visible:=False;
if TreeView1.Items[2].Selected then Panel2.Visible:=true;
if TreeView1.Items[2].Selected then Panel1.Visible:=False;

следственно у 2 panel'ей выставляю visible - false.

по клику items1 вылезает первая панель, по клику items2 первая панель закрываеться(наверное) ,потом опять кликаю по items1 вторая панель не закрываеться! и первую не видать! ВОПРОС: в чем косяк???

[Terran]

Не накладывайте панели одну на другую. Просто поставьте две панели на форму и потом задвиньте одну под другую. И лучше писать кодом так:

Procedure TForm1.TreeView1Click(Sender: TObject);
Begin
If TreeView1.Items[1].Selected Then
Begin
Panel1.Visible:=True;
Panel2.Visible:=False;
End;
If TreeView1.Items[2].Selected Then
Begin
Panel1.Visible:=False;
Panel2.Visible:=True;
End;
End;

[apocalypce]

Сообщение от Terran

Не накладывайте панели одну на другую. Просто поставьте две панели на форму и потом задвиньте одну под другую. И лучше писать кодом так:

Procedure TForm1.TreeView1Click(Sender: TObject);
Begin
If TreeView1.Items[1].Selected Then
Begin
Panel1.Visible:=True;
Panel2.Visible:=False;
End;
If TreeView1.Items[2].Selected Then
Begin
Panel1.Visible:=False;
Panel2.Visible:=True;
End;
End;

спасибо работает что то я как то не догадался чтобы задвинуть одну панель за другую!